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

@ -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;
}
#----------------------------------------------------------------------------