0 0 Bar Foo

##

package testSoap;
                                                                                
sub get
{
    print STDERR "module called\n";
                                                                                
    my ( $self, $id ) = @_;
    my $userinfo = [
        bless ({ key => 'ID', value  => 0 }, "item"),
        bless ({ key => 'first', value  => 'Foo' }, "item"),
        bless ({ key => 'surname', value  => 'Bar' }, "item"),
        bless ({ key => 'age', value  => 0 }, "item"),
        bless ({ key => 'phone', value  => '' }, "item")
    ];
                                                                                
    return bless $userinfo, "Map";
                                                                                
}
                                                                                
1;

##

##



##

##