view release on metacpan or  search on metacpan

t/lib/HideModule.pm  view on Meta::CPAN

    if (ref $INC[$i] eq ref $hook && $INC[$i] == $hook) {
      splice @INC, $i, 1;
    }
  }
  unshift @INC, $hook;
}

sub _hook {
  my (undef, $file) = @_;
  if (exists $hide{$file}) {
    die sprintf 'Can\'t locate %s in @INC (Hidden Module) at %s line %s.', $file, (caller)[1,2];
  }
  return;
}

1;