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" ;
}