1234567891011121314 use strict;use warnings;use utf8;use Test::More;use PLON;open *FH, '>', \my $out;my $plon = PLON->new->encode(\*FH);note $plon;my $newfh = PLON->new->decode($plon);print {$newfh} "UWAA";is $out, 'UWAA';done_testing;
use
strict;
warnings;
utf8;
Test::More;
PLON;
open
*FH
,
'>'
, \
my
$out
;
$plon
= PLON->new->encode(\
);
note
$newfh
= PLON->new->decode(
print
{
}
"UWAA"
is
'UWAA'
done_testing;