![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) { |