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