Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
BailOnFail.pm	1.46 KB	-rw-rw-rw-	2020-12-16 05:48
DieOnFail.pm	1.43 KB	-rw-rw-rw-	2020-12-16 05:48
ExitSummary.pm	1.89 KB	-rw-rw-rw-	2020-12-16 05:48
NoWarnings.pm	3.72 KB	-rw-rw-rw-	2020-06-29 23:57
SRand.pm	4.17 KB	-rw-rw-rw-	2020-12-16 05:48
Times.pm	3.07 KB	-rw-rw-rw-	2020-12-16 05:48
UTF8.pm	2.75 KB	-rw-rw-rw-	2020-12-16 05:48

Rename

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

our $VERSION = '0.000139';

use Test2::API qw/test2_add_callback_context_release/;

my $LOADED = 0;
sub import {
    return if $LOADED++;

test2_add_callback_context_release(sub {
        my $ctx = shift;
        return if $ctx->hub->is_passing;
        $ctx->bail("(Bail On Fail)");
    });
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Test2::Plugin::BailOnFail - Automatically bail out of testing on the first test
failure.

=head1 DESCRIPTION

This module will issue a bailout event after the first test failure. This will
prevent your tests from continuing. The bailout runs when the context is
released; that is, it will run when the test function you are using, such as
C<ok()>, returns. This gives the tools the ability to output any extra
diagnostics they may need.

=head1 SYNOPSIS

use Test2::V0;
    use Test2::Plugin::BailOnFail;

ok(1, "pass");
    ok(0, "fail");
    ok(1, "Will not run");

=head1 SOURCE

The source code repository for Test2-Suite can be found at
F<https://github.com/Test-More/Test2-Suite/>.

=head1 MAINTAINERS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 AUTHORS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See F<http://dev.perl.org/licenses/>

=cut