From: Vincent Pit Date: Fri, 23 Aug 2013 17:04:21 +0000 (-0300) Subject: Synopsis revamp X-Git-Tag: v0.08~7 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=b8b7412248e3d4fc5b193e5f756e1139a4b540bf;p=perl%2Fmodules%2FB-RecDeparse.git Synopsis revamp --- diff --git a/lib/B/RecDeparse.pm b/lib/B/RecDeparse.pm index d06584a..f996420 100644 --- a/lib/B/RecDeparse.pm +++ b/lib/B/RecDeparse.pm @@ -25,12 +25,19 @@ 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