1 files changed, 0 insertions, 181 deletions
diff --git a/lib/Test/Builder/Module.pm b/lib/Test/Builder/Module.pm
deleted file mode 100644
index a2d8e5bb60..0000000000
--- a/lib/Test/Builder/Module.pm
+++ /dev/null
@@ -1,181 +0,0 @@
-package Test::Builder::Module;
-
-use strict;
-
-use Test::Builder;
-
-require Exporter;
-our @ISA = qw(Exporter);
-
-our $VERSION = '0.92';
-$VERSION = eval $VERSION;      ## no critic (BuiltinFunctions::ProhibitStringyEval)
-
-# 5.004's Exporter doesn't have export_to_level.
-my $_export_to_level = sub {
-    my $pkg   = shift;
-    my $level = shift;
-    (undef) = shift;    # redundant arg
-    my $callpkg = caller($level);
-    $pkg->export( $callpkg, @_ );
-};
-
-=head1 NAME
-
-Test::Builder::Module - Base class for test modules
-
-=head1 SYNOPSIS
-
-  # Emulates Test::Simple
-  package Your::Module;
-
-  my $CLASS = __PACKAGE__;
-
-  use base 'Test::Builder::Module';
-  @EXPORT = qw(ok);
-
-  sub ok ($;$) {
-      my $tb = $CLASS->builder;
-      return $tb->ok(@_);
-  }
-  
-  1;
-
-
-=head1 DESCRIPTION
-
-This is a superclass for Test::Builder-based modules.  It provides a
-handful of common functionality and a method of getting at the underlying
-Test::Builder object.
-
-
-=head2 Importing
-
-Test::Builder::Module is a subclass of Exporter which means your
-module is also a subclass of Exporter.  @EXPORT, @EXPORT_OK, etc...
-all act normally.
-
-A few methods are provided to do the C<use Your::Module tests => 23> part
-for you.
-
-=head3 import
-
-Test::Builder::Module provides an import() method which acts in the
-same basic way as Test::More's, setting the plan and controling
-exporting of functions and variables.  This allows your module to set
-the plan independent of Test::More.
-
-All arguments passed to 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;
-
-says to import the functions this() and that() as well as set the plan
-to be 23 tests.
-
-import() also sets the exported_to() attribute of your builder to be
-the caller of the import() function.
-
-Additional behaviors can be added to your import() method by overriding
-import_extra().
-
-=cut
-
-sub import {
-    my($class) = shift;
-
-    # 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);
-
-    $class->import_extra( \@_ );
-    my(@imports) = $class->_strip_imports( \@_ );
-
-    $test->plan(@_);
-
-    $class->$_export_to_level( 1, $class, @imports );
-}
-
-sub _strip_imports {
-    my $class = shift;
-    my $list  = shift;
-
-    my @imports = ();
-    my @other   = ();
-    my $idx     = 0;
-    while( $idx <= $#{$list} ) {
-        my $item = $list->[$idx];
-
-        if( defined $item and $item eq 'import' ) {
-            push @imports, @{ $list->[ $idx + 1 ] };
-            $idx++;
-        }
-        else {
-            push @other, $item;
-        }
-
-        $idx++;
-    }
-
-    @$list = @other;
-
-    return @imports;
-}
-
-=head3 import_extra
-
-    Your::Module->import_extra(\@import_args);
-
-import_extra() is called by import().  It provides an opportunity for you
-to add behaviors to your module based on its import list.
-
-Any extra arguments which shouldn't be passed on to plan() should be 
-stripped off by this method.
-
-See Test::More for an example of its use.
-
-B<NOTE> This mechanism is I<VERY ALPHA AND LIKELY TO CHANGE> as it
-feels like a bit of an ugly hack in its current form.
-
-=cut
-
-sub import_extra { }
-
-=head2 Builder
-
-Test::Builder::Module provides some methods of getting at the underlying
-Test::Builder object.
-
-=head3 builder
-
-  my $builder = Your::Class->builder;
-
-This method returns the Test::Builder object associated with Your::Class.
-It is not a constructor so you can call it as often as you like.
-
-This is the preferred way to get the Test::Builder object.  You should
-I<not> get it via C<< Test::Builder->new >> as was previously
-recommended.
-
-The object returned by builder() may change at runtime so you should
-call builder() inside each function rather than store it in a global.
-
-  sub ok {
-      my $builder = Your::Class->builder;
-
-      return $builder->ok(@_);
-  }
-
-
-=cut
-
-sub builder {
-    return Test::Builder->new;
-}
-
-1;