|
64
|
0 |
0 |
0 |
eval {
do {
BEGIN {${^WARNING_BITS} = "TUUU\025UUUUUUUUUU\025"}
my $w = $^W;
$^W = 0;
require Text::Restructured::Writer;
require Text::Restructured::DOM;
require File::Temp;
my $writer = 'Text::Restructured::Writer'->new('html', {'w', 'html', 'd', 0, 'D', {}});
my $value = shift();
$value = $value->repr;
my $dom;
if ($value =~ /^new({'w', 'html', 'd', 0, 'D', {}}, '1 release 1');
$dom = $rst_parser->Parse($value, tmpnam());
} ;
my $x = $writer->ProcessDOM($dom);
$^W = $w;
$x = substr($x, index($x, '') + 6);
$x = substr($x, 0, index($x, ' |