override BUILDARGS instead of new
This commit is contained in:
parent
381e1ff022
commit
a725942c17
5 changed files with 21 additions and 16 deletions
|
|
@ -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 {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue