Select Code to Download

<Location /mod_soap>
   SetHandler perl-script
   PerlHandler Apache::SOAP
   PerlSetVar dispatch_to "/usr/local/apache/lib/soap"
</Location>

package Factory;

...
sub foo { 'foo' }

1;

use strict;

...
my $object = $soap->instantiate('My::User','5')->result;

print Dumper $object;

$VAR1 = bless( {
                 'artist' => 'Van Halen',
...
                 'id' => '5',
                 'year' => '1978'
               }, 'My::User' );

my $object = $soap->instantiate('My::User','5')->result;
print $object->foo();

# yields:  
Can't locate object method "foo" via package "My::User" at ./instantia
+te.pl line 23.