karupanerura

use strict;
use warnings;
use utf8;
use Amon2::Lite;
use Data::MessagePack 0.36;
use Compress::LZF;
use Cache::Memcached::Fast;

use Regexp::Common qw/URI/;
use List::Util qw/shuffle/;

karupanerura

package Filesys::Notify::KQueue;
use strict;
use warnings;

use File::Find;
use IO::File;
use IO::KQueue;
use List::MoreUtils qw/any/;

sub new {

karupanerura

#!/usr/bin/env perl
use strict;
use warnings;

use YAML::Syck;
use List::Util qw/sum/;

my @stats = split("\n", `sysctl vm.stats.vm | grep count | grep -v 'vm.stats.vm.v_page_count'`);
my $page_size = do {
    my $raw = `sysctl vm.stats.vm.v_page_size`;

karupanerura

#!/usr/bin/env perl
# Balls ( http://judge.u-aizu.ac.jp/onlinejudge/description.jsp?id=0033 )
package Balls;
use strict;
use warnings;

sub new {
    my($class, $count) = @_;

    bless(+{ count => $count } => $class);

karupanerura

use strict;
use warnings;
use utf8;
use Plack::Builder;
use Amon2::Lite;
use Cache::File;
use Encode;
use Digest::MD5 qw(md5_hex);
use Furl::HTTP;

karupanerura

use strict;
use warnings;

use 5.10.0;
use utf8;
use open ':encoding(utf-8)';
use open ':std';

use constant {
    ANGEL => '天使',

karupanerura

use strict;
use warnings;

use Plack::Builder;
use AnyEvent;

my $app = sub {
    my $env = shift;
    $env->{'cleanup.register'}->(sub {
        my $w; $w = AnyEvent->timer(

karupanerura

package karupanerura;
# is me!

package main;
use strict;
use warnings;

use Meat;
use Beef;
use Hormones;

karupanerura

package Time::Piece::Child;
use parent qw/Time::Piece/;


package Hoge;
import Time::Piece::Child;
use Data::Dumper;
use Sub::Identify qw(stash_name);

sub run {

karupanerura

package Class::MethodSearch;
use strict;
use warnings;
 
use Class::Load ();
use B ();
use Carp ();
use Module::Find ();
use Try::Tiny;