2 use warnings FATAL => 'all';
15 Role::Tiny::_load_module('TrackLoad');
16 is $TrackLoad::LOADED, 0, 'modules not loaded if symbol table entries exist';
18 eval { Role::Tiny::_load_module('BrokenModule') };
19 like "$@", qr/Compilation failed/,
20 'broken modules throw errors';
21 eval { require BrokenModule };
22 like "$@", qr/Compilation failed/,
23 ' ... and still fail if required again';
25 eval { Role::Tiny::_load_module('FalseModule') };
26 like "$@", qr/did not return a true value/,
27 'modules returning false throw errors';
28 eval { require FalseModule };
29 like "$@", qr/did not return a true value/,
30 ' ... and still fail if required again';