ysasaki

requires 'IO::All';
requires 'IO::All::LWP';

ysasaki

#!/usr/bin/perl

=pod

=head1 NAME

plack-middleware-serverstatus-lite - Munin plugin for Plack::Middleware::ServerStatus::Lite

=head1 INSTALL

ysasaki

#!perl

use strict;
use warnings;
use File::Path;
use File::Basename;

unless ( -e 'cpanm' ) {
    run(qw(curl -ksS -L http://cpanmin.us -o cpanm));
}

ysasaki

• daemontoolsを利用するので、envdirで$PATH, $CONFIG, $MODEの設定をすること
• sidekiqの -e $MODE の指定をしないとdevelopmentとしてconfigを見るので注意
• gemにあるforeman(0.60.2)だとcpu loadが跳ね上がったので、Gemfile, Gemfile.lockを書き換えて最新のforemanをgitからinstallするよう変更
• high cpu load with foreman 0.60.2

ysasaki

#!/usr/bin/env perl

use v5.16;
use strict;
use warnings;
use Imager;

say "Imager version => $Imager::VERSION";

my @images;

ysasaki

diff --git lib/Net/Twitter/Queue.pm lib/Net/Twitter/Queue.pm
index f826077..fb2a12e 100644
--- lib/Net/Twitter/Queue.pm
+++ lib/Net/Twitter/Queue.pm
@@ -39,6 +39,7 @@ Net::Twitter::Queue each day to post a tweet:
 use Carp;
 use Net::Twitter 3.12000;
 use YAML::Any 0.70 qw(LoadFile DumpFile);
+use Encode qw(decode_utf8);

ysasaki

.tweet {
  font-size: 1.0em;
  font-weight: normal;
  color: black;
}

.tweet span {
  font-size: 1.0em;
  font-weight: normal;
  color: black;

ysasaki

• Perl XS メモ - typemap と MAGIC をからめて
• perlxstypemap
• tokuhirom blog XSを書く時のメモ
• UV

ysasaki

[root@localhost .cpan]# cpan
Terminal does not support AddHistory.

cpan shell -- CPAN exploration and modules installation (v1.9402)
Enter 'h' for help.

cpan[1]> o conf
$CPAN::Config options from '/usr/share/perl5/CPAN/Config.pm':
    commit             [Commit changes to disk]
    defaults           [Reload defaults from disk]

ysasaki

#!/usr/bin/env perl

use v5.14;
use warnings;
use AnyEvent;
use AnyEvent::Socket;
use AnyEvent::Handle;
use Log::Minimal;
use Test::TCP qw(empty_port wait_port);
use Scalar::Util qw(refaddr);