Re: Problem with SOAP::Lite

[Anonymous Monk]

See SOAP::Lite - Insecure dependency in eval while running with -T

Without taint, I get a java.lang.NullPointerException

#!/usr/local/bin/perl --
use strict;
use warnings;
use SOAP::Lite;
use SOAP::Lite +trace => [ transport => \&pp_dump, ];
my $service = SOAP::Lite->service(
q{http://xml.nig.ac.jp/wsdl/GetEntry.wsdl});

my $result = $service->getFASTA_CDSEntry("BN000101");
print $result;

sub pp {
    use XML::Twig;
    open my($fh), '>', \my $str;
    no warnings 'newline';
    XML::Twig->new(qw! pretty_print record !)->xparse(@_)->print( $fh 
+);
    return $str;
}
sub pp_dump {
    my $content = $_[0]->content('');
    $_[0]->content( pp($content) );
    print $_[0]->as_string,"\n";
    return;
}
__END__