URIオブジェクト作るんだけど、プロパティとしても同じことができないかなんとかしたい。おお、何言ってるのか分からない。 package WWW::ImagePager; use Any::Moose; use URI; has 'basepage' => (is=>'rw', isa=>'URI'); sub BUILDARGS { my ($self, %args) = @_; $args{basepage} = URI->new($agrs{basepage}); # ここと return { %args }; } around 'basepage' => sub { my $orig = shift; my $self = shift; return $self->$orig() unless @_; return $self->$orig(URI->new(shift)); # こ