} else {
$extra_tests = 3;
*report = *report_smart;
+ *abort = *abort_smart;
}
}
$self->SUPER::report($sess, $report);
}
+sub abort_smart {
+ my $self = shift;
+
+ $extra_tests = 0;
+
+ $self->SUPER::abort(@_);
+}
+
sub DESTROY {
return unless $extra_tests;