次は Recipe5 也。 ソース package HTML::Location; use URI; sub __as_URI { my $self = shift; return URI->new( $self->uri ); } package Request; use Moose; use Moose::Util::TypeConstraints; use HTTP::Headers (); use Params::Coerce (); use URI (); subtype 'Header' => as 'Object' => where { $_->isa('HTTP::Headers') }; coerce 'Header' => from 'ArrayRef' => via { HTTP::Headers->new( @{$_} ) } => from 'HashRef' =