PerlでBuilderパターンを書いてみた。 - Qiita

package DinnerBuilder; use strict; use warnings; use utf8; use Mouse; has food => ( is => 'ro', isa => 'Str', required => 1, ); has drink => ( is => 'ro', isa => 'Str', required => 1, ); has dessert => ( is => 'ro', isa => 'Str', required => 1, ); has price => ( is => 'rw', isa => 'Int', default => 0, ); sub create { my ($class, $food) = @_; return $class->new( food => $food, drink => 'none', dess