aero

#!/usr/bin/env perl
# 사용법
# perl demacboogi.pl *.zip  #zip파일만 변환
# perl demacboogi.pl        #모든파일 변환
use 5.010;
use strict;
use warnings;
use Encode qw/encode decode/;
use Unicode::Normalize qw/compose/;
use File::Copy;

aero

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;

my @m = 1..17;

my @m5;

my $step = 5;

aero

#!/usr/bin/env perl

BEGIN {
    require FindBin;
    require lib;

    my $locallib_path = "$FindBin::RealBin/locallib/$^V";
    lib->import("$locallib_path/lib/perl5");

    my $cpanm;

aero

#!/usr/bin/env perl

BEGIN {
    my @REQ_MODULES = qw/
    Mojolicious
    Text::CSV_XS
    /;

    require FindBin;
    require lib;

aero

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

my $s = do { local $/; <DATA> };

my %section = $s =~ m/
                       ^{{{(.*?)}}}-+$
                       \n(.*?)
                       (?=\n{{{.*?}}}-+$|\Z)

aero

use Mojolicious::Lite;
use Mojo::mysql;

helper db => sub {
                 state $db =  Mojo::mysql->new('mysql://user:pass@/task')->db;
                 if (! $db->ping ) {
                     $db->dbh( $db->dbh->clone() ) or die "cannot connect to db";
                 }
                 return $db;
             };

aero

#!/usr/bin/env perl
use 5.012;
use warnings;
use blib;
use Benchmark qw/cmpthese/;
use mop;   # 2013-07-22


{
    package Raw;

aero

--- Directory.pm.org    2012-11-12 13:38:22.000000000 +0900
+++ Directory.pm        2013-03-31 00:23:52.000000000 +0900
@@ -5,6 +5,7 @@

 use Cwd ();
 use Encode ();
+use Encode::Locale;
 use DirHandle;
 use Mojo::Base qw{ Mojolicious::Plugin };
 use Mojolicious::Types;

aero

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use Benchmark;
use Data::Dumper;

timethese(1000000, {
        perl       => sub { sub_perl(100) },
        c          => sub { sub_c(100) },

aero

Date: 2012-04-28

Moose 2.0403
Mouse 0.97
Moo   0.091 + Class::XSAccessor 1.13
Mo    0.31


* Loading
time perl -e 'use Moose;'