File Coverage

blib/lib/Test2/Plugin/DBBreak.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	32	33	96.9

package Test2::Plugin::DBBreak;
use strict;
use warnings;

our $VERSION = '0.200000';

our $disable = 0;

use Test2::API qw{
    test2_add_callback_post_load
    test2_stack
};

sub import {
    my $class  = shift;
    my %params = @_;

    test2_add_callback_post_load(
        sub {
            my $hub = test2_stack()->top;
            $hub->listen(\&listener, inherit => 1);
        }
    );
}

sub listener {
    my ($hub, $event) = @_;
    no warnings 'once';

    return if ($disable);

    $DB::single = 1 if ($event->causes_fail);

    return;
}

1;

__END__