On Thu, Jul 08, 2004 at 01:59:35PM -0400, Michael G Schwern wrote: > Likely you'd control if you wanted this behavior with > HARNESS_PERL_SWITCHES=-MTest::AutoDebug > > This can be implemented, currently, by adding a post hook onto > Test::Builder->ok() with Hook::LexWrap or Sub::Uplevel. I'm considering > future versions of Test::Builder to offer some sort of event subscriber > system so people can more easily do this sort of thing.
The debugger thing sounds very nice but rather than event hooks, why not use OO. package Test::Debug; use Test::Builder; @ISA= 'Test::Builder'; *Test::Builder::new = sub {Test::Debug}; sub ok { my $self = shift; my $ok = shift; if ($ok) { local $Test::Builder::Level = $Test::Builder::Level + 1; $self->SUPER::ok($ok); } else { debugger_me(); } } most of the above could be in Test::Builder::Override, F