6 use lib qw{blib/lib blib/arch};
10 if (eval "use B::RecDeparse; 1") {
11 $bd = B::RecDeparse->new;
14 $bd = B::Deparse->new;
23 wantarray ? (1, 2) : 1;
29 return wat(1), wat(1), wat(1), wat(1);
63 return 1, 2 for 1 .. 4;
74 $code = sub { for (do { return 1, 2, 3 }) { } return 1, 2; };
75 print STDERR $bd->coderef2text($code), "\n";
77 B::Concise::walk_output(\*STDERR);
78 B::Concise::concise_subref('basic', $code, 'cx_test');
80 my $sn = Sub::Nary->new();
81 my $cx = $sn->nary($code);
83 print STDERR Dumper($cx);