Select Code to Download

package Document::Page;
use Moose;
...
# <page><header/><report type="tps"/><footer/></page>
my $report_xml = TPSReport->new->create('food');
print "$report_xml\n";

sub super {
    # This check avoids a recursion loop - see
...
        return;
    }
}