Merge branch 'fork'

t/lib/WebGUI/Test/Fork.pm

@@ -0,0 +1,20 @@
+package WebGUI::Test::Fork;
+
+sub simple {
+    my ( $self, $arr ) = @_;
+    $self->update( $arr->[0] );
+}
+
+sub error {
+    my ( $self, $arr ) = @_;
+    die "$arr->[0]\n";
+}
+
+sub complex {
+    my $self = shift;
+    $self->update( sub {'foo'} );
+    $self->update( sub {'bar'} );
+    $self->update( sub {'baz'} );
+}
+
+1;