no if ($] >= 5.018), 'warnings' => 'experimental';
require bytes;
require utf8;
use FindBin;
use JSON;
use Pod::Simple::Text;
BEGIN
{
require Exporter;
our $VERSION = '1.22';
our @ISA ~ /^SCALAR\n(.*)/)
{
$result = $1;
} else
{
eval { $result = from_json($tmp, {utf8 => 1}) };
}
}
}
next;
}
}
unshift @cleanup, $tmp_path;
}
;
unless (ref($result))
{
$tmp = "SCALAR\n$result";
} else
{
eval { $tmp = to_json($result, {utf8 => 1, pretty => 1}) } if ref($result) eq "ARRAY" or ref($result) eq "HASH";
}