view release on metacpan or  search on metacpan

t/Algorithm_Odometer_Tiny_Testlib.pm  view on Meta::CPAN

it under the same terms as Perl 5 itself.

For more information see the L<Perl Artistic License|perlartistic>,
which should have been distributed with your copy of Perl.
Try the command C<perldoc perlartistic> or see
L<http://perldoc.perl.org/perlartistic.html>.

=cut

BEGIN {
	require Exporter; # "parent" pragma wasn't core until 5.10.1
	our @ISA = qw/ Exporter /;  ## no critic (ProhibitExplicitISA)
}
our @EXPORT = qw/ $AUTHOR_TESTS exception warns getverbatim /;  ## no critic (ProhibitAutomaticExportation)

our $AUTHOR_TESTS;
BEGIN { $AUTHOR_TESTS = ! ! $ENV{ALGORITHM_ODOMETER_TINY_AUTHOR_TESTS} }

sub import {  ## no critic (RequireArgUnpacking)
	warnings->import(FATAL=>'all') if $AUTHOR_TESTS;
	require Carp::Always if $AUTHOR_TESTS;