X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FB%2FRecDeparse.pm;h=a075c339ecc5b6885f40a4ff726674accd14fa77;hb=7a9cabd96ea8fe03da4f8afc6e6430a49b648842;hp=791c5750523092ed49d87630b8290a9c15e6752e;hpb=ed8af32fb71887b9d4bb8e43c0efa02d558da44e;p=perl%2Fmodules%2FB-RecDeparse.git diff --git a/lib/B/RecDeparse.pm b/lib/B/RecDeparse.pm index 791c575..a075c33 100644 --- a/lib/B/RecDeparse.pm +++ b/lib/B/RecDeparse.pm @@ -17,20 +17,27 @@ B::RecDeparse - Deparse recursively into subroutines. =head1 VERSION -Version 0.05 +Version 0.07 =cut -our $VERSION = '0.05'; +our $VERSION = '0.07'; =head1 SYNOPSIS - perl -MO=RecDeparse,deparse,[@B__Deparse_opts],level,-1 [ -e '...' | bleh.pl ] + # Deparse recursively a Perl one-liner : + $ perl -MO=RecDeparse,deparse,@B__Deparse_opts,level,-1 -e '...' - # Or as a module : + # Or a complete Perl script : + $ perl -MO=RecDeparse,deparse,@B__Deparse_opts,level,-1 x.pl + + # Or a single code reference : use B::RecDeparse; - my $brd = B::RecDeparse->new(deparse => [ @b__deparse_opts ], level => $level); + my $brd = B::RecDeparse->new( + deparse => \@B__Deparse_opts, + level => $level, + ); my $code = $brd->coderef2text(sub { ... }); =head1 DESCRIPTION @@ -42,7 +49,12 @@ Besides the constructor syntax, everything should work the same for the two modu =head1 METHODS -=head2 C<< new < deparse => [ @B__Deparse_opts ], level => $level > >> +=head2 C + + my $brd = B::RecDeparse->new( + deparse => \@B__Deparse_opts, + level => $level, + ); The L object constructor. You can specify the underlying L constructor arguments by passing a string or an array reference as the value of the C key. @@ -255,7 +267,7 @@ Tests code coverage report is available at L