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;
#!/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) { |
#!/bin/sh | |
curl -L http://is.gd/plenvsetup | sh | |
. ~/.bash_profile | |
plenv install 5.18.1 | |
plenv global 5.18.1 | |
plenv install-cpanm |
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'); |
use strict; | |
use Plack::Builder; | |
use Data::Dumper; | |
my $app = sub { | |
[404, [], ['Not Found']]; | |
}; | |
my $psgi = builder { | |
enable "Debug"; |
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 .
package Test::More;
use strict; | |
use warnings; | |
use SQL::Maker; | |
my $maker = SQL::Maker->new(driver => 'mysql'); | |
my ($sql, @binds) = $maker->select( | |
'book', | |
['*'], | |
{price => {'<=' => 1000}}, |
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 |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Furl; | |
use File::Temp 'tempdir'; | |
use File::Spec; | |
use File::Slurp; | |
use Vector::QRCode::IntoPDF; |
use strict; | |
use Benchmark qw/:all/; | |
use Data::Dumper; | |
### Mouse | |
{ | |
package | |
MyClass::Mouse; | |
use Mouse; |
use strict; | |
use warnings; | |
use Data::Dumper; | |
### case of scalar | |
{ | |
my $data = 123; | |
ref $data and $data = undef; | |
print Dumper({'SCALAR' => $data}); | |
}; |