2003-05-15 つーか programming package Hoge; use strict; use base qw(Class::Accessor); Hoge->mk_accessors(qw(Fuga)); sub new { my $self = shift; bless { Fuga => Hoge::Fuga->new() },$self; } 1; __END__ - use Hoge; my $hoge = Hoge->new(); print $hoge->Fuga->gimyo(); こういう構造が好き。