diff options
Diffstat (limited to 'cpan/Test-Simple/lib/Test/Builder/Module.pm')
-rw-r--r-- | cpan/Test-Simple/lib/Test/Builder/Module.pm | 132 |
1 files changed, 9 insertions, 123 deletions
diff --git a/cpan/Test-Simple/lib/Test/Builder/Module.pm b/cpan/Test-Simple/lib/Test/Builder/Module.pm index a5d8eba73e..2322d8a9b7 100644 --- a/cpan/Test-Simple/lib/Test/Builder/Module.pm +++ b/cpan/Test-Simple/lib/Test/Builder/Module.pm @@ -2,27 +2,18 @@ package Test::Builder::Module; use strict; -use Test::Stream 1.301001 '-internal'; -use Test::Builder 0.99; +use Test::Builder 1.00; require Exporter; our @ISA = qw(Exporter); -our $VERSION = '1.301001_098'; +our $VERSION = '1.001014'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) -=pod - -=encoding UTF-8 =head1 NAME -Test::Builder::Module - *DEPRECATED* Base class for test modules - -=head1 DEPRECATED - -B<This module is deprecated> See L<Test::Stream::Toolset> for what you should -use instead. +Test::Builder::Module - Base class for test modules =head1 SYNOPSIS @@ -38,15 +29,12 @@ use instead. my $tb = $CLASS->builder; return $tb->ok(@_); } - + 1; =head1 DESCRIPTION -B<This module is deprecated> See L<Test::Stream::Toolset> for what you should -use instead. - This is a superclass for L<Test::Builder>-based modules. It provides a handful of common functionality and a method of getting at the underlying L<Test::Builder> object. @@ -68,8 +56,8 @@ same basic way as L<Test::More>'s, setting the plan and controlling exporting of functions and variables. This allows your module to set the plan independent of L<Test::More>. -All arguments passed to C<import()> are passed onto -C<< Your::Module->builder->plan() >> with the exception of +All arguments passed to C<import()> are passed onto +C<< Your::Module->builder->plan() >> with the exception of C<< import =>[qw(things to import)] >>. use Your::Module import => [qw(this that)], tests => 23; @@ -88,14 +76,12 @@ C<import_extra()>. sub import { my($class) = shift; - my $test = $class->builder; - my $caller = caller; - - warn __PACKAGE__ . " is deprecated!\n" if $caller->can('TB_INSTANCE') && $caller->TB_INSTANCE->modern; - # Don't run all this when loading ourself. return 1 if $class eq 'Test::Builder::Module'; + my $test = $class->builder; + + my $caller = caller; $test->exported_to($caller); @@ -185,103 +171,3 @@ sub builder { } 1; - -__END__ - -=head1 SOURCE - -The source code repository for Test::More can be found at -F<http://github.com/Test-More/test-more/>. - -=head1 MAINTAINER - -=over 4 - -=item Chad Granum E<lt>exodist@cpan.orgE<gt> - -=back - -=head1 AUTHORS - -The following people have all contributed to the Test-More dist (sorted using -VIM's sort function). - -=over 4 - -=item Chad Granum E<lt>exodist@cpan.orgE<gt> - -=item Fergal Daly E<lt>fergal@esatclear.ie>E<gt> - -=item Mark Fowler E<lt>mark@twoshortplanks.comE<gt> - -=item Michael G Schwern E<lt>schwern@pobox.comE<gt> - -=item 唐鳳 - -=back - -=head1 COPYRIGHT - -There has been a lot of code migration between modules, -here are all the original copyrights together: - -=over 4 - -=item Test::Stream - -=item Test::Stream::Tester - -Copyright 2014 Chad Granum E<lt>exodist7@gmail.comE<gt>. - -This program is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. - -See F<http://www.perl.com/perl/misc/Artistic.html> - -=item Test::Simple - -=item Test::More - -=item Test::Builder - -Originally authored by Michael G Schwern E<lt>schwern@pobox.comE<gt> with much -inspiration from Joshua Pritikin's Test module and lots of help from Barrie -Slaymaker, Tony Bowden, blackstar.co.uk, chromatic, Fergal Daly and the perl-qa -gang. - -Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern -E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein. - -Copyright 2001-2008 by Michael G Schwern E<lt>schwern@pobox.comE<gt>. - -This program is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. - -See F<http://www.perl.com/perl/misc/Artistic.html> - -=item Test::use::ok - -To the extent possible under law, 唐鳳 has waived all copyright and related -or neighboring rights to L<Test-use-ok>. - -This work is published from Taiwan. - -L<http://creativecommons.org/publicdomain/zero/1.0> - -=item Test::Tester - -This module is copyright 2005 Fergal Daly <fergal@esatclear.ie>, some parts -are based on other people's work. - -Under the same license as Perl itself - -See http://www.perl.com/perl/misc/Artistic.html - -=item Test::Builder::Tester - -Copyright Mark Fowler E<lt>mark@twoshortplanks.comE<gt> 2002, 2004. - -This program is free software; you can redistribute it -and/or modify it under the same terms as Perl itself. - -=back |