view release on metacpan or  search on metacpan

lib/nextgen/blacklist.pm  view on Meta::CPAN

use warnings;
use feature ':5.10';

# http://scsys.co.uk:8002/52489

my %prohibited;
my $NEXT_REQUIRE;

sub require {
	my $file = shift;
	my $callers_pkg = (caller)[0];

	my $pkg_bl_db = $prohibited{ $callers_pkg };
	my $class = _pmfile_to_class( $file );

	if ( exists $pkg_bl_db->{$file} ) {
		die sprintf(
			"nextgen::blacklist violation with import attempt for: [ %s (%s) ] try 'use %s' instead.\n%s\n"
			, $class
			, $file
			, $pkg_bl_db->{$file}{'replacement'}