more test work

lib/WebGUI/Asset.pm

@@ -22,6 +22,7 @@ use HTML::Packer;
 use Moose;
 use WebGUI::Types;
 use Data::Dumper;
+use WebGUI::FormBuilder;
 
 use WebGUI::Definition::Asset;
 define assetName  => ['asset', 'Asset'];

lib/WebGUI/FormBuilder/Role/HasFields.pm

@@ -9,7 +9,7 @@ requires 'session', 'pack', 'unpack';
 
 has 'fields' => (
     is      => 'rw',
-    isa     => 'ArrayRef[WebGUI::Form::Control]',
+    isa     => 'ArrayRef',
     default => sub { [] },
 );
 

lib/WebGUI/FormBuilder/Role/HasFieldsets.pm

@@ -5,7 +5,7 @@ use Moose::Role;
 
 has 'fieldsets' => (
     is      => 'rw',
-    isa     => 'ArrayRef[WebGUI::FormBuilder::Fieldset]',
+    isa     => 'ArrayRef',
     default => sub { [] },
 );
 

lib/WebGUI/FormBuilder/Role/HasObjects.pm

@@ -4,7 +4,7 @@ use Moose::Role;
 
 has 'objects' => (
     is => 'rw',
-    isa => 'ArrayRef[Object]',
+    isa => 'ArrayRef',
     default => sub { [] },
 );
 

lib/WebGUI/FormBuilder/Role/HasTabs.pm

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

lib/WebGUI/FormBuilder/Tabset.pm

@@ -12,7 +12,7 @@ has 'name' => (
 
 has 'tabs' => (
     is => 'rw',
-    isa => 'ArrayRef[WebGUI::FormBuilder::Tab]',
+    isa => 'ArrayRef',
     default => sub { [] },
 );