前回に引き続きMooseでAdapterパターンを書いてみました。 教科書は結城さんのデザパタ本。 コード Print.pm package Print; use Moose::Role; requires qw( printWeak printStrong ); no Moose::Role; 1; Banner.pm package Banner; use Moose; use Perl6::Say; has 'string' => ( is => 'rw', isa => 'Str' ); no Moose; sub BUILDARGS { my ($self, $string) = @_; return { string => $string }; } sub showWithParen { my $self = shift; say '(' . $self->string . '