2008-05-21から1日間の記事一覧
ちょくちょくこっちに何か書いていこうかな
package Human; use Moose; has 'name' => ( is => 'rw', isa => 'Str', default => '' ); has 'age' => ( is => 'rw', isa => 'Int', default => 0 ); sub clear { my $self = shift; $self->name(''); $self->age(0); } package Human::Japaness; use Moos…