package SecretAgent {
  use Moose;
  extends 'Person';
  # secret agents have many aliases
  has '+name' => (isa => 'ArrayRef');
  sub introduce_yourself {
    my $self    = shift;
    my @names   = @{ $self->name };
    my $name    = $names[ rand @names ];
    my $surname = (split / /, $name)[-1];
    printf("The name's %s, %s\n", $surname, $name);
  }  
}