sub add ($$) { $_[0] + $_[1] }
sub mul { $_[0] * $_[1] }
sub fma { add mul($_[0], $_[1]), $_[2] }
sub add ($$) { $_[0] + $_[1] }
sub mul { $_[0] * $_[1] }
sub fma { add mul($_[0], $_[1]), $_[2] }
my $brd = B::RecDeparse->new(%$_, level => 0);
my $code = $brd->coderef2text(\&wut);
SKIP: {
my $brd = B::RecDeparse->new(%$_, level => 0);
my $code = $brd->coderef2text(\&wut);
SKIP: {
is($code, $reference, "empty deparse and level 0 does the same thing as B::Deparse ($i)");
}
$code = eval 'sub ' . $code;
is($code, $reference, "empty deparse and level 0 does the same thing as B::Deparse ($i)");
}
$code = eval 'sub ' . $code;