From: Vincent Pit <vince@profvince.com>
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