Select Code to Download

package Person {
  use Moose;
...
  name => ['James Bond', 'Burt Saxby', 'David Somerset'],
);
$bond->introduce_yourself;

package SecretAgent {
  use Moose;
...
    printf("The name's %s, %s\n", $surname, $name);
  }  
}