Initial Commit

database/perl/vendor/lib/Test2/Event/Warning.pm

@@ -0,0 +1,81 @@
+package Test2::Event::Warning;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.09';
+
+use parent 'Test2::Event';
+
+use Test2::Util::HashBase qw( causes_fail warning );
+
+sub init {
+    $_[0]->{ +CAUSES_FAIL } = 1       unless exists $_[0]->{ +CAUSES_FAIL };
+    $_[0]->{ +WARNING }     = 'undef' unless defined $_[0]->{ +WARNING };
+}
+
+sub summary { $_[0]->{ +WARNING } }
+
+sub increments_count {1}
+sub diagnostics      {1}
+
+1;
+
+# ABSTRACT: A Test2 event for warnings
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Test2::Event::Warning - A Test2 event for warnings
+
+=head1 VERSION
+
+version 0.09
+
+=head1 DESCRIPTION
+
+An event representing an unwanted warning. This is treated as a failure.
+
+=for Pod::Coverage init
+
+=head1 ACCESSORS
+
+=over 4
+
+=item $warning = $event->warning
+
+Returns the warning that this event captured.
+
+=back
+
+=head1 SUPPORT
+
+Bugs may be submitted at L<https://github.com/houseabsolute/Test2-Plugin-NoWarnings/issues>.
+
+I am also usually active on IRC as 'autarch' on C<irc://irc.perl.org>.
+
+=head1 SOURCE
+
+The source code repository for Test2-Plugin-NoWarnings can be found at L<https://github.com/houseabsolute/Test2-Plugin-NoWarnings>.
+
+=head1 AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2020 by Dave Rolsky.
+
+This is free software, licensed under:
+
+  The Artistic License 2.0 (GPL Compatible)
+
+The full text of the license can be found in the
+F<LICENSE> file included with this distribution.
+
+=cut