shibayu36

# perl -Mlib::xi=-v app.psgi

You have make /usr/bin/make
You have LWP 6.03
You have /usr/bin/tar: bsdtar 2.6.2 - libarchive 2.6.2
You have /usr/bin/unzip
Searching Amon2.pm on cpanmetadb ...
! Finding Amon2.pm on cpanmetadb failed.
Searching Amon2.pm on search.cpan.org ...
! Finding Amon2.pm on search.cpan.org failed.

shibayu36

package Sample::Accessor;
use strict;
use warnings;

use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_accessors(qw(hoge fuga));

sub new {
    my ($class, $args) = @_;

shibayu36

# -*- Makefile -*-
CARTON = local/carton/bin/carton
CARTON_LIB = local/carton/lib/perl5
PERL = perl
CPANM = $(PERL) local/carton/cpanm
CPANM_ = $(CPANM) --notest --verbose -l local/carton --reinstall
CPANM_PATH = local/carton
PERL_PATH = local/dummy/path/to/perl

REMOTEDEV_HOST = develop.test

shibayu36

#!perl
use strict;
use warnings;

use DBI;

sub copy_schema_from_test_db ($$$$) {
    my ($orig_dsn, $user, $password, $new_dbh) = @_;

    my $old_dbh = DBI->connect($orig_dsn, $user, $password)

shibayu36

#!perl
use strict;
use warnings;

use IO::File;
my $fh = IO::File->new;
if ($fh->open("2012-03-30-091435.pl")) {
    warn $fh->fileno;
    $fh->close;
}

shibayu36

#!perl
use strict;
use warnings;

for (1..20) {
    $0 = "perl process : $_";
    sleep 1;
}

shibayu36

#!perl
use strict;
use warnings;

exit 128;

shibayu36

#!perl
use strict;
use warnings;

my $pid = fork;
die "Cannot fork: $!" unless defined $pid;

if ($pid) {
    warn "pid:$$ is a parent process(child pid is $pid)";
    wait;

shibayu36

#!perl
use strict;
use warnings;

my $pid = fork;
die "Cannot fork: $!" unless defined $pid;

if ($pid) {
    warn "pid:$$ is a parent process(child pid is $pid)";
    die;

shibayu36

#!perl
use strict;
use warnings;

my $pid = fork;

if ($pid) {
    warn 'parent';
    wait();
    warn $? / 256;