X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FB-RecDeparse.git;a=blobdiff_plain;f=lib%2FB%2FRecDeparse.pm;fp=lib%2FB%2FRecDeparse.pm;h=f9964207f1314ad5776338d58ea7b9dcf5108f2f;hp=d06584a582d127413c93a2227f983c40a0231c18;hb=b8b7412248e3d4fc5b193e5f756e1139a4b540bf;hpb=202fdfe5d0b052a2a037f55d289cacb55eac0433

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