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

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

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

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

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

my $psgi = builder {
    enable "Debug";

ytnobody

PostScript::Simple is so useful module. But, it makes confused when using with Carton.

Solution, add a line-feed to head of package name of each t/lib/Test/*.pm .

• as is

package Test::More;

ytnobody

use strict;
use warnings;
use SQL::Maker;

my $maker = SQL::Maker->new(driver => 'mysql');

my ($sql, @binds) = $maker->select(
    'book',
    ['*'], 
    {price => {'<=' => 1000}}, 

ytnobody

ytnobody@ytnobody-virtual-machine:~/vznope-bash$ cat centos-mysql 
create centos@6
set --nameserver 8.8.8.8
start
exec yum -y update
exec yum -y install mysql-server

ytnobody@ytnobody-virtual-machine:~/vznope-bash$ vzn build 102 < centos-mysql 
---
RUN: create centos@6

ytnobody

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

use Furl;
use File::Temp 'tempdir';
use File::Spec;
use File::Slurp;
use Vector::QRCode::IntoPDF;

ytnobody

use strict;
use Benchmark qw/:all/;
use Data::Dumper;

### Mouse
{
    package 
        MyClass::Mouse;
    use Mouse;

ytnobody

use strict;
use warnings;
use Data::Dumper;

### case of scalar
{
    my $data = 123;
    ref $data and $data = undef;
    print Dumper({'SCALAR' => $data});
};