2009-06-01から1ヶ月間の記事一覧
バグかどうかも分からないので、つらつらと記録。 #!/usr/bin/env perl use strict; use warnings; use Test::More tests => 2; do { package Hoge; sub new { my $pkg = shift; my $arg = @_ > 1 ? +{@_} : $_[0]; bless $arg, $pkg; } package Parent; use…
バグかどうかも分からないので、つらつらと記録。 #!/usr/bin/env perl use strict; use warnings; use Test::More tests => 2; do { package Hoge; sub new { my $pkg = shift; my $arg = @_ > 1 ? +{@_} : $_[0]; bless $arg, $pkg; } package Parent; use…
