more test work

This commit is contained in:
Doug Bell 2010-05-24 11:34:45 -05:00
parent e891410075
commit eec0780893
7 changed files with 31 additions and 5 deletions

View file

@ -9,7 +9,7 @@ requires 'session', 'pack', 'unpack';
has 'tabsets' => (
is => 'rw',
isa => 'ArrayRef[WebGUI::FormBuilder::Tabset]',
isa => 'ArrayRef',
default => sub { [] },
);
@ -137,6 +137,7 @@ Get a tabset object by name
sub getTabset {
my ( $self, $name ) = @_;
$name ||= "default";
return $self->{_tabsetsByName}{$name};
}