X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FB-RecDeparse.git;a=blobdiff_plain;f=samples%2Fbrd.pl;h=bd0f7e32eacf3f7897e4ceb3dc2f56238a1f0820;hp=9e0f790801abec0525fe624072a607f849fece12;hb=addf5498116d3d0429a1fd72adcc094847004803;hpb=204608f5565b265a5cad74172ab1f26da58332d7 diff --git a/samples/brd.pl b/samples/brd.pl index 9e0f790..bd0f7e3 100755 --- a/samples/brd.pl +++ b/samples/brd.pl @@ -5,10 +5,8 @@ use warnings; use lib qw{blib/lib}; use B::RecDeparse; -# use B::Deparse; my $deparser = B::RecDeparse->new(deparse => [ '-sCi0v1' ], level => 1); -# my $deparser = B::Deparse->new('-sCi0v1'); sub spec (&) { return unless defined $_[0] and ref $_[0] eq 'CODE';