blob: bf6fad516e7bda60be02f738b952e35984784cdf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict;
use warnings;
use Test::More;
use List::Util 'first';
use lib 't/lib';
use A::JunkAll;
ok(main->can('junk1'), 'sub exported');
ok(main->can('junk2'), 'sub exported');
ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');
package Other;
use Test::More;
use A::JunkAll ':all';
ok(main->can('junk1'), 'sub exported');
ok(main->can('junk2'), 'sub exported');
ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');
done_testing;
|