X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDB.pm;h=711acc085d12123a0a8ac547ab0bfb9d7f774cd4;hb=847a5fae45dac396d0f9e1bb61d5b4ff9d94cdcd;hp=1395c81b5a7bdba5e2abc66210adb471156af0f6;hpb=43d8869b61f38e2bcba70315c30436a0b25ba2d5;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/DB.pm b/lib/DB.pm index 1395c81..711acc0 100644 --- a/lib/DB.pm +++ b/lib/DB.pm @@ -555,9 +555,9 @@ change) package CLIENT; use DB; @ISA = qw(DB); - + # these (inherited) methods can be called by the client - + CLIENT->register() # register a client package name CLIENT->done() # de-register from the debugging API CLIENT->skippkg('hide::hide') # ask DB not to stop in this package @@ -585,7 +585,7 @@ change) # These methods will be called at the appropriate times. # Stub versions provided do nothing. # None of these can block. - + CLIENT->init() # called when debug API inits itself CLIENT->stop(FILE,LINE) # when execution stops CLIENT->idle() # while stopped (can be a client event loop) @@ -794,7 +794,7 @@ highly experimental and subject to change. =head1 AUTHOR -Gurusamy Sarathy gsar@umich.edu +Gurusamy Sarathy gsar@activestate.com This code heavily adapted from an early version of perl5db.pl attributable to Larry Wall and the Perl Porters.