File Coverage

blib/lib/TAP/Harness/BailOnFail.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	29	29	100.0

package TAP::Harness::BailOnFail;

use strict;
use warnings;
use parent qw(TAP::Harness::Restricted);

our $VERSION = '0.001';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);

    $self->callback(made_parser => sub {
        my $parser = shift;

        # Continue parsing after the first failure until just before the
        # next test, to capture any pending diagnositcs.
        my $failure;
        $parser->callback(test => sub {
            my $test = shift;
            $self->_bailout($failure) if $failure;
            $failure = $test unless $test->is_ok;
        });
    });

    return $self;
}


1;


__END__