moose-class/exercises/answers/01-classes/Person.pm

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