2008-09-04から1日間の記事一覧
2008-09-03彼が全部代弁している。 # クラス名定義 package PackageName::ClassName; # 親クラス設定 use base qw(PackageName::ParentClassName); # コンストラクタ定義 sub new { my($class, @args) = @_; my $obj = bless $class->SUPER::new(), $class; …
2008-09-03彼が全部代弁している。 # クラス名定義 package PackageName::ClassName; # 親クラス設定 use base qw(PackageName::ParentClassName); # コンストラクタ定義 sub new { my($class, @args) = @_; my $obj = bless $class->SUPER::new(), $class; …
