package Person {
  use Moose;
  has name => (is => 'ro', isa => 'Str');
  sub introduce_yourself {
    my $self = shift;
    printf("My name is %s\n", $self->name);
  }
}

package SecretAgent {
  use Moose;
  extends 'Person';
  # secret agents have many aliases
  has '+name' => (isa => 'ArrayRef');
}

my $bond = SecretAgent->new(
  name => ['James Bond', 'Burt Saxby', 'David Somerset'],
);
$bond->introduce_yourself;