moose-class/exercises/answers/02-roles/Person.pm

   1 package Person;
   2
   3 use Moose;
   4
   5 with 'Printable', 'HasAccount';
   6
   7 has first_name => ( is => 'rw' );
   8 has last_name  => ( is => 'rw' );
   9
  10 sub full_name {
  11     my $self = shift;
  12
  13     return join q{ }, $self->first_name, $self->last_name;
  14 }
  15
  16 sub as_string { $_[0]->full_name }
  17
  18 no Moose;
  19
  20 __PACKAGE__->meta->make_immutable;
  21
  22 1;