=head1 VERSION
-Version 0.06
+Version 0.07
=cut
-our $VERSION = '0.06';
+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
=head1 METHODS
-=head2 C<< new < deparse => [ @B__Deparse_opts ], level => $level > >>
+=head2 C<new>
+
+ my $brd = B::RecDeparse->new(
+ deparse => \@B__Deparse_opts,
+ level => $level,
+ );
The L<B::RecDeparse> object constructor.
You can specify the underlying L<B::Deparse> constructor arguments by passing a string or an array reference as the value of the C<deparse> key.