Select Code to Download

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"));
}