use Module::Runtime qw/module_notional_filename/; BEGIN { for my $package (qw/ Foo Foo::Bar /) { my $fn = module_notional_filename($package); die "$package already loaded from $INC{$fn}" if exists $INC{$fn}; $INC{$fn} = __FILE__; } }