1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use CaptureException;
use Moo::_Utils qw(
_maybe_load_module
);
use InlineModule (
'Broken::Class' => q{
use strict;
use warnings;
my $f = flub;
},
);
{
my @warn;
local $SIG{__WARN__} = sub { push @warn, @_ };
is exception {
ok !_maybe_load_module('Broken::Class'),
'_maybe_load_module returns false for broken modules';
}, undef, "_maybe_load_module doesn't die on broken modules";
like $warn[0], qr/Broken::Class exists but failed to load with error/,
'_maybe_load_module errors become warnings';
_maybe_load_module('Broken::Class');
is scalar @warn, 1,
'_maybe_load_module only warns once per module';
ok !_maybe_load_module('Missing::Module::A'.int rand 10**10),
'_maybe_load_module returns false for missing module';
is scalar @warn, 1,
" ... and doesn't warn";
}
{
{
package MooTest::Module::WithVariable;
our $VARIABLE = 219;
}
like exception { Moo::_Utils::_load_module('MooTest::Module::WithVariable') },
qr{^Can't locate MooTest/Module/WithVariable\.pm },
'_load_module: inline package with only variable not treated as loaded';
{
package MooTest::Module::WithSub;
sub glorp { $_[0] + 1 }
}
is exception { Moo::_Utils::_load_module('MooTest::Module::WithSub') }, undef,
'_load_module: inline package with sub treated as loaded';
{
package MooTest::Module::WithConstant;
use constant GORP => "GLUB";
}
is exception { Moo::_Utils::_load_module('MooTest::Module::WithConstant') }, undef,
'_load_module: inline package with constant treated as loaded';
{
package MooTest::Module::WithListConstant;
use constant GORP => "GLUB", "BOGGLE";
}
is exception { Moo::_Utils::_load_module('MooTest::Module::WithListConstant') }, undef,
'_load_module: inline package with constant treated as loaded';
{
package MooTest::Module::WithBEGIN;
my $var;
BEGIN { $var = 1 }
}
like exception { Moo::_Utils::_load_module('MooTest::Module::WithBEGIN') },
qr{^Can't locate MooTest/Module/WithBEGIN\.pm },
'_load_module: inline package with only BEGIN not treated as loaded';
{
package MooTest::Module::WithSubPackage;
package MooTest::Module::WithSubPackage::SubPackage;
our $grop = 1;
sub grop { 1 }
}
like exception { Moo::_Utils::_load_module('MooTest::Module::WithSubPackage') },
qr{^Can't locate MooTest/Module/WithSubPackage\.pm },
'_load_module: inline package with sub package not treated as loaded';
}
done_testing;
|
