override BUILDARGS instead of new

This commit is contained in:
Doug Bell 2010-02-22 12:50:24 -06:00
parent 381e1ff022
commit a725942c17
5 changed files with 21 additions and 16 deletions

View file

@ -59,11 +59,11 @@ Optional. A synonym for C<label>.
=cut
sub new {
sub BUILDARGS {
my ( $class, $session, %properties ) = @_;
$properties{ session } = $session;
$properties{ label } ||= delete $properties{ legend };
return $class->SUPER::new( %properties );
return \%properties;
}
sub getFooter {