use vars qw(@ISA); @ISA = qw(Exporter SOAP::Server::Parameters); #### sub mymethod{ my $envelope = pop(@_); my $sample_id = $envelope->dataof("//sample_id")->value if(defined $envelope->dataof("//sample_id")); my $match_id = $envelope->dataof("//match_id")->value if(defined $envelope->dataof("//match_id")); }