ytnobody

use strict;
use Benchmark qw(:all);
use XML::XPath::Diver;
use XML::Diver;

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

my $xpath_diver = sub {
   my $xd = XML::XPath::Diver->new(xml => $xml);
   $xd->dive('//food'); 

ytnobody

#!/bin/sh
curl -L http://is.gd/plenvsetup | sh
. ~/.bash_profile
plenv install 5.18.1
plenv global 5.18.1
plenv install-cpanm

ytnobody

#!/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) {

ytnobody

test

• foo
• bar

1. hoge
2. fuga

ytnobody

#!/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) {

ytnobody

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(

ytnobody

#!/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;

ytnobody

#!/bin/sh

PROJ_DIR=$1 ; shift

git clone git@github.com: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 .

ytnobody

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 {

ytnobody

azuma@ubuntu:~/myproj$ git log
commit 52b0450b049f45b88b4aa4b0694ca646f16f2f12
Author: ytnobody <ytnobody@gmail.com>
Date:   Wed Aug 28 15:12:55 2013 +0900

    Z

commit 3807c7bb1b25166078f9ca269788eafd7990aabb
Author: ytnobody <ytnobody@gmail.com>
Date:   Wed Aug 28 15:12:38 2013 +0900