ytnobody

use strict;
use Plack::Builder;
use Data::Dumper;

my $app = sub {
    [404, [], ['Not Found']];
};

my $psgi = builder {
    enable "Debug";

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 [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 .

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 {