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__