Debugger subroutine for ptkdb that places a breakpoint, with or without a condition, on the next executable line.
use strict ;
use vars qw/@dbline/ ;
sub Debugger {
return unless defined $DB::single && defined %main::Devel::ptkdb::
+ ;
my($package, $fname, $line) = caller ;
my($expr) = shift ;
local(*dbline) = local(*dbline) = $main::{'_<' . $fname} ;
$line += 1 ;
for( ; $line < @dbline && !DB::checkdbline($fname, $line) ; $line
+++ ) {}
return if( $line == @dbline ) ;
if( defined $expr ) {
Devel::ptkdb::condbrkpt($fname, $line, $expr) ;
}
else {
Devel::ptkdb::brkpt($fname, $line) ;
}
}
##
## Example of Use
##
sub foo1 {
Debugger() ;
}
sub foo2 {
print "Hi\n" ;
}
&foo1 ;
Debugger() ;
print "Hello world!\n" ;
my($i) ;
for( $i = 0 ; $i < 20 ; $i++ ) {
Debugger('$i > 15') ;
print "$i\n" ;
}
Features
Function call needn't be removed when debugging isn't enabled
Issues
If placed at the bottom of a subroutine, a breakpoint is placed at the beginning of the next, or nothing, if there are more executable lines in the file.
Breakpoints don't actually appear until AFTER execution has passed over the Debugger() call.