親 = Kaizoku.pm 子 = onepiece.cgiKaizoku.pm sub new { my $class = shift; my %args = @_; my $self = { tmpl_dir => $args{tmpl_dir}, tmpl_message => $args{tmpl_message} }; bless $self, $class; }これが、親のコンストラクタです。ここに、tmpl_for…