Help for this page
{ 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;
www.com | www.net | www.org
No recent polls found