1*5759b3d2Safresh1use Test::Builder::Tester; 2*5759b3d2Safresh1use Test::More tests => 1; 3*5759b3d2Safresh1use strict; 4*5759b3d2Safresh1use warnings; 5*5759b3d2Safresh1 6*5759b3d2Safresh1BEGIN { 7*5759b3d2Safresh1 package Example::Tester; 8*5759b3d2Safresh1 9*5759b3d2Safresh1 use base 'Test::Builder::Module'; 10*5759b3d2Safresh1 $INC{'Example/Tester.pm'} = 1; 11*5759b3d2Safresh1 12*5759b3d2Safresh1 sub import { 13*5759b3d2Safresh1 my $package = shift; 14*5759b3d2Safresh1 my %args = @_; 15*5759b3d2Safresh1 my $callerpack = caller; 16*5759b3d2Safresh1 my $tb = __PACKAGE__->builder; 17*5759b3d2Safresh1 $tb->exported_to($callerpack); 18*5759b3d2Safresh1 local $SIG{__WARN__} = sub { }; 19*5759b3d2Safresh1 $tb->no_plan; 20*5759b3d2Safresh1 } 21*5759b3d2Safresh1} 22*5759b3d2Safresh1 23*5759b3d2Safresh1test_out('ok 1 - use Example::Tester;'); 24*5759b3d2Safresh1use_ok('Example::Tester'); 25*5759b3d2Safresh1test_test("use Example::Tester;"); 26