Here it is. Now each project using Apache::Test can easily supply its own function to be executed on 't/TEST' failure. In the case of mod_perl we just print:
+--------------------------------------------------------+ | Please file a bug report: http://perl.apache.org/bugs/ | +--------------------------------------------------------+
nice!
+sub try_bug_report {
+ my $self = shift;
+ if ($? && $self->{opts}->{bugreport}) {
+ $self->bug_report if $self->can('bug_report');
+ }
}
given the way it's implemented in t/TEST.PL, you should only need
sub bug_report {}
the subclassing should take care of the rest.
I like this. I like it a lot :)
--Geoff
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
