#!/usr/bin/perl
use strict;
my $text;
{
local undef $/;
$text = <>;
}
my $parser = Test::Parser::PyNFS->new();
$parser->parse($text)
|| die $parser->error();
print $parser->to_xml();
#!/usr/bin/perl
use strict;
my $text;
{
local undef $/;
$text = <>;
}
my $parser = Test::Parser::PyNFS->new();
$parser->parse($text)
|| die $parser->error();
print $parser->to_xml();