Help for this page

Select Code to Download


  1. or download this
    package Farm;
use Moose;
...
);

1;
  2. or download this
    my $farm = Farm->new;
$farm->farmName('Old Mac Donald');
push @{$farm->farmBirds} => 'Chicken';
push @{$farm->farmMammals} => 'Pig';
  3. or download this
    my $farm = Farm->new(
    farmName    => 'Old Mac Donald',
    farmBirds   => [ 'Chicken', 'Duck' ],
    farmMammals => [ 'Pig', 'Cow' ],    
);