Select Code to Download

{
    package Person;
...

my $alice = Person->new(name => 'Alice', age => 32);
$alice->introduce_yourself;

my $alice = Person->new(name => 'Alice', age => 32);
my $bob   = Person->new(name => 'Bob', age => 31);

$_->introduce_yourself for $alice, $bob;

{
    package Person;
...
$alice->bear_children($bob, 'Carol', 'Dave', 'Eve');

print "Bob is a father!\n" if $bob->is_parent;

use Moops;

...
$alice->bear_children($bob, 'Carol', 'Dave', 'Eve');

say "Bob is a father!" if $bob->is_parent;