NAME
Devel::Quick - Write single-step debugger one-liners easily (DB::DB)
VERSION
version 0.03
SYNOPSIS
Devel::Trace in one line:
perl -d:Quick='print ">> $filename:$line $code"' prog.plThe above, with strict checking enabled (not default):
perl -d:Quick=-strict,'print ">> $filename:$line $code"' prog.plOr shortened:
perl -d:Quick=-s,'print ">> $filename:$line $code"' prog.plIf you need '-' as the first character in your code, use a ';':
perl -d:Quick='; -1 * 2;' prog.plDESCRIPTION
This module allows you to write simple on-the-fly DB::DB line debuggers easily. It injects the following code around the code passed to its import method and eval's it in:
package DB;
use strict;
use warnings;
sub DB {
my ($package, $filename, $line,
$subroutine, $hasargs, $wantarray,
$evaltext, $is_require, $hints,
$bitmask, $hinthash) = caller(0);
my $args = \@_;
my $code;
{
no strict 'refs';
$code = @{"::_<$filename"}[$line];
}
no strict;
<<CODE>>
}By default, warnings are enabled but strict mode is disabled. If you want strict, the first argument to import should be -s or -strict.
If you need to pass a - as the first character in the Perl code, you'll need to inject a semi-colon (;) before it like so:
perl -d:Quick='; -1 * 2;' prog.plAvailable Arguments
A bunch of varibales are provided by default for ease of use, including all variables returned by "caller" in perlfunc, the source code that's about to be executed, and arguments to a subroutine if the code being executed is from one. All described below.
caller() variables
See "caller" in perlfunc for a description of these.
$package
$filename
$line
$subroutine
$hasargs
$wantarray
$evaltext
$is_require
$hints
$bitmask
$hinthash
$code
The variable $code contains the line of source code about to be executed. This is provided by @{"_<$filename"}. See perldebguts for more information.
$args
$args is simply a reference to @_ that the code that is about to be executed can see. This is only relevant within subroutines. $hasargs may tell you if this is filled in or not, or just check @$args.
Changing the underlying values will affect when the current subroutine sees.
AUTHOR
Matthew Horsfall (alh) - <WolfSage@gmail.com>