perl_mlb
view release on metacpan or search on metacpan
os2/perllocal.pod view on Meta::CPAN
=item *
C<VERSION: 1.01>
=item *
C<EXE_FILES: >
=back
=head2 Thu Dec 4 14:08:24 2003: C<Module> L<PadWalker|PadWalker>
=over 4
=item *
C<installed into: i:/perllib/lib/site_perl/5.8.2>
=item *
C<LINKTYPE: dynamic>
os2/perllocal.pod view on Meta::CPAN
=item *
C<VERSION: 1.01>
=item *
C<EXE_FILES: >
=back
=head2 Sun Dec 14 21:30:54 2003: C<Module> L<PadWalker|PadWalker>
=over 4
=item *
C<installed into: i:/perllib/lib/site_perl/5.8.2>
=item *
C<LINKTYPE: dynamic>
os2/perllocal.pod view on Meta::CPAN
=item *
C<VERSION: 1.01>
=item *
C<EXE_FILES: >
=back
=head2 Mon Dec 15 03:31:15 2003: C<Module> L<PadWalker|PadWalker>
=over 4
=item *
C<installed into: i:/perllib/lib/site_perl/5.8.2>
=item *
C<LINKTYPE: dynamic>
os2/perllocal.pod view on Meta::CPAN
=item *
C<VERSION: 1.01>
=item *
C<EXE_FILES: >
=back
=head2 Tue Dec 16 01:08:01 2003: C<Module> L<PadWalker|PadWalker>
=over 4
=item *
C<installed into: i:/perllib/lib/site_perl/5.8.2>
=item *
C<LINKTYPE: dynamic>
os2/perllocal.pod view on Meta::CPAN
=item *
C<VERSION: 1.01>
=item *
C<EXE_FILES: >
=back
=head2 Tue Dec 16 01:42:33 2003: C<Module> L<PadWalker|PadWalker>
=over 4
=item *
C<installed into: i:/perllib/lib/site_perl/5.8.2>
=item *
C<LINKTYPE: dynamic>
# All of these commands were remapped in perl 5.8.0;
# we send them off to the secondary dispatcher (see below).
$cmd =~ /^([aAbBhlLMoOvwW]\b|[<>\{]{1,2})\s*(.*)/so && do {
&cmd_wrapper($1, $2, $line);
next CMD;
};
=head4 C<y> - List lexicals in higher scope
Uses C<PadWalker> to find the lexicals supplied as arguments in a scope
above the current one and then displays then using C<dumpvar.pl>.
=cut
$cmd =~ /^y(?:\s+(\d*)\s*(.*))?$/ && do {
# See if we've got the necessary support.
eval { require PadWalker; PadWalker->VERSION(0.08) }
or &warn(
$@ =~ /locate/
? <<EOM
PadWalker module not found - please install; try the command
perl -MCPAN -e "install PadWalker"
EOM
: $@
)
and next CMD;
# Load up dumpvar if we don't have it. If we can, that is.
do 'dumpvar.pl' unless defined &main::dumpvar;
defined &main::dumpvar
or print $OUT "dumpvar.pl not available.\n"
and next CMD;
# Got all the modules we need. Find them and print them.
my @vars = split (' ', $2 || '');
# Find the pad.
my $h = eval { PadWalker::peek_my(($1 || 0) + 1) };
# Oops. Can't find it.
$@ and $@ =~ s/ at .*//, &warn($@), next CMD;
# Show the desired vars with dumplex().
my $savout = select($OUT);
# Have dumplex dump the lexicals.
dumpvar::dumplex(
$_,
B<W> I<*> Delete all watch-expressions.
B<V> [I<pkg> [I<vars>]] List some (default all) variables in package (default current).
Use B<~>I<pattern> and B<!>I<pattern> for positive and negative regexps.
B<X> [I<vars>] Same as \"B<V> I<currentpackage> [I<vars>]\".
B<x> I<expr> Evals expression in list context, dumps the result.
B<m> I<expr> Evals expression in list context, prints methods callable
on the first element of the result.
B<m> I<class> Prints methods callable via the given class.
B<M> Show versions of loaded modules.
B<y> [I<n> [I<Vars>]] List lexicals in higher scope <n>. Vars same as B<V>.
Requires the module B<PadWalker>.
B<<> ? List Perl commands to run before each prompt.
B<<> I<expr> Define Perl command to run before each prompt.
B<<<> I<expr> Add to the list of Perl commands to run before each prompt.
B<< *> Delete the list of perl commands to run before each prompt.
B<>> ? List Perl commands to run after each prompt.
B<>> I<expr> Define Perl command to run after each prompt.
B<>>B<>> I<expr> Add to the list of Perl commands to run after each prompt.
B<>>B< *> Delete the list of Perl commands to run after each prompt.
B<{> I<db_command> Define debugger command to run before each prompt.
B<{> ? List debugger commands to run before each prompt.
( run in 0.856 second using v1.01-cache-2.11-cpan-05444aca049 )