use warnings;
use lib qw{blib/lib blib/arch};
-use B::Deparse;
+
+my $bd;
+BEGIN {
+ if (eval "use B::RecDeparse; 1") {
+ $bd = B::RecDeparse->new;
+ } else {
+ use B::Deparse;
+ $bd = B::Deparse->new;
+ }
+}
use B::Concise;
use Sub::Nary;
} elsif ($y) {
sub { qr/wat/ }, %h;
} elsif (@z) {
- return [ ]
+ return [ ];
}
}
my $code = \&wut;
-my $bd = B::Deparse->new();
print STDERR $bd->coderef2text($code), "\n";
B::Concise::walk_output(\*STDERR);