![ytnobody][http://ytnobody.net/impress/hachiojipm-26/img/ytnobody_char.png]
hachioji.pm #26 - ytnobody
![ytnobody][http://ytnobody.net/impress/hachiojipm-26/img/ytnobody_char.png]
hachioji.pm #26 - ytnobody
| use strict; | |
| use warnings; | |
| use Benchmark qw(:all); | |
| use Test::Deep::NoTest; | |
| use Data::Compare; | |
| { | |
| package Data::Compare::Deparse; | |
| use B::Deparse; | |
| my $deparser = B::Deparse->new(); |
| #!/bin/sh | |
| PROJ_DIR=$1 ; shift | |
| cd $PROJ_DIR | |
| git mv lib/Nephia lib/PrimalNephia | |
| find ./* ./.gitignore -type f | xargs sed -i 's/Nephia/PrimalNephia/g; s/nephia-setup/primalnephia-setup/g;' | |
| git add . && minil build && minil test && git add . && git commit -m 'rename' && git push |
| azuma@ubuntu:~/myproj$ git log | |
| commit 52b0450b049f45b88b4aa4b0694ca646f16f2f12 | |
| Author: ytnobody <[email protected]> | |
| Date: Wed Aug 28 15:12:55 2013 +0900 | |
| Z | |
| commit 3807c7bb1b25166078f9ca269788eafd7990aabb | |
| Author: ytnobody <[email protected]> | |
| Date: Wed Aug 28 15:12:38 2013 +0900 |
| use strict; | |
| use warnings; | |
| use Test::More; | |
| use Plack::Builder; | |
| use Plack::Test; | |
| use HTTP::Request::Common; | |
| my $app = sub { [200,[],['Hello, World']] }; | |
| my $wrapped = builder { |
| #!/bin/sh | |
| PROJ_DIR=$1 ; shift | |
| git clone [email protected]:ytnobody/$PROJ_DIR.git | |
| cd $PROJ_DIR | |
| git mv lib/Voson lib/Nephia | |
| find ./* ./.gitignore -type f | xargs sed -i 's/Voson/Nephia/g; s/voson-setup/nephia-setup/g;' | |
| git add . && minil build && minil test && git add . && git commit -m 'rename' && git push | |
| cpanm . |
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use lib qw(BitterMilk/lib SugarMilk/lib HornyMilk/lib); | |
| use Benchmark qw(:all); | |
| use BitterMilk; | |
| use SugarMilk; | |
| use HornyMilk::Web; | |
| use Data::Dumper; |
| use strict; | |
| use Benchmark qw(:all); | |
| use Router::Simple; | |
| use Dispatcher::Small; | |
| use Data::Dumper; | |
| my $rs = Router::Simple->new; | |
| $rs->connect('/user/:id' => {action => 'user'}); | |
| my $ds = Dispatcher::Small->new( |
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| my $dir = $ARGV[0] || 'env'; | |
| mkdir $dir unless -d $dir; | |
| my @data = `env`; | |
| chdir $dir; | |
| for my $entry (@data) { |