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" ;
}
[download]

Features