override BUILDARGS instead of new
This commit is contained in:
parent
381e1ff022
commit
a725942c17
5 changed files with 21 additions and 16 deletions
|
|
@ -43,10 +43,10 @@ The name of the tabset. Required.
|
|||
|
||||
=cut
|
||||
|
||||
sub new {
|
||||
sub BUILDARGS {
|
||||
my ( $class, $session, %properties ) = @_;
|
||||
$properties{ session } = $session;
|
||||
return $class->SUPER::new( %properties );
|
||||
return \%properties;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue