package Test2::Event::Exception; use strict; use warnings; our $VERSION = '1.302073'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw{error}; sub causes_fail { 1 } sub summary { my $self = shift; chomp(my $msg = "Exception: " . $self->{+ERROR}); return $msg; } sub diagnostics { 1 } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Exception - Exception event =head1 DESCRIPTION An exception event will display to STDERR, and will prevent the overall test file from passing. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Exception; my $ctx = context(); my $event = $ctx->send_event('Exception', error => 'Stuff is broken'); =head1 METHODS Inherits from L<Test2::Event>. Also defines: =over 4 =item $reason = $e->error The reason for the exception. =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 Copyright 2016 Chad Granum E<lt>exodist@cpan.orgE<gt>. 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
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
TAP | Folder | 0755 |
|
|
Bail.pm | File | 1.5 KB | 0644 |
|
Diag.pm | File | 1.18 KB | 0644 |
|
Encoding.pm | File | 1.53 KB | 0644 |
|
Exception.pm | File | 1.34 KB | 0644 |
|
Generic.pm | File | 5.42 KB | 0644 |
|
Info.pm | File | 2.3 KB | 0644 |
|
Note.pm | File | 1.14 KB | 0644 |
|
Ok.pm | File | 2.38 KB | 0644 |
|
Plan.pm | File | 3.04 KB | 0644 |
|
Skip.pm | File | 1.66 KB | 0644 |
|
Subtest.pm | File | 2.37 KB | 0644 |
|
Waiting.pm | File | 988 B | 0644 |
|