Select Code to Download

package Animal; 

...
1; 

-- ad nauseum --

package Report;

...

1;

my $report1 = new Report(1);  # gets Report::HighLevel
my $report2 = new Report(0);  # gets Report::Status

$report1->generate();
$report2->generate();