2 use warnings FATAL => 'all';
4 use Test::More tests => 1;
8 use lib 't/lib'; use TempDir;
12 return scalar grep { ref eq 'CODE' } @INC;
15 my $dir = mk_temp_dir('sub-in-INC-XXXXX');
17 my $base = CODE_in_INC;
18 unshift @INC, sub { () };
19 splice @INC, 3, 1, sub { () };
20 push @INC, sub { () };
22 local::lib->import($dir);
24 is( CODE_in_INC, $base + 3 );