#!perl -w
use strict;
use Test::More;
use L;
my $some_core_module = 'Data::Dumper';
my $module_path = $some_core_module;
$module_path =~ s!::!/!g;
$module_path .= '.pm';
ok !$INC{$module_path}; # not loaded.
Data::Dumper->Dump([qw/hoge/]);
ok $INC{$module_path};
local $@;
eval {
List::Util->dummy;
};
like $@, qr/Can't locate object method "dummy" via package "List::Util"/;
eval {
no warnings;
hoge();
};
like $@, qr/Undefined subroutine &main::hoge called/;
done_testing;