1 2 3 4 5 6 7 8 9 10 11 12 13
use strict; use warnings; use Test::More; use List::Util 'first'; use lib 't/lib'; use A::Junk 'junk1'; ok(main->can('junk1'), 'requested sub exported'); ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded'); done_testing;