6 use lib qw{blib/lib blib/arch};
10 $Sub::Nary::DEBUG = 1;
15 wantarray ? (1, 2) : 1;
21 return wat(1), wat(1), wat(1), wat(1);
55 return 1, 2 for 1 .. 4;
67 my $bd = B::Deparse->new();
68 print STDERR $bd->coderef2text($code), "\n";
70 B::Concise::walk_output(\*STDERR);
71 B::Concise::concise_subref('basic', $code, 'cx_test');
73 my $sn = Sub::Nary->new();
74 my $cx = $sn->nary($code);
76 print STDERR Dumper($cx);