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

@ -53,10 +53,10 @@ Optional. A label for the tab.
=cut
sub new {
sub BUILDARGS {
my ( $class, $session, %properties ) = @_;
$properties{ session } = $session;
return $class->SUPER::new( %properties );
return \%properties;
}
#----------------------------------------------------------------------------