override BUILDARGS instead of new
This commit is contained in:
parent
381e1ff022
commit
a725942c17
5 changed files with 21 additions and 16 deletions
|
|
@ -56,10 +56,10 @@ other possible value is "application/x-www-form-urlencoded".
|
|||
|
||||
=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