xt/subroutine-in-inc.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More;
   4
   5 plan qw/no_plan/;
   6
   7 use File::Spec;
   8 use Cwd;
   9 use File::Temp qw/ tempdir /;
  10 my $dir = tempdir( DIR => Cwd::abs_path('t'), CLEANUP => 1 );
  11 my $base;
  12
  13 sub CODE_in_INC() {
  14     return scalar grep { ref eq 'CODE' } @INC;
  15 }
  16
  17 BEGIN {
  18     $base = CODE_in_INC;
  19     unshift @INC, sub { };
  20     splice @INC, 3, 1, sub { };
  21     push @INC, sub { };
  22 }
  23
  24 use local::lib( $dir );
  25
  26 is( CODE_in_INC, $base + 3 );