projects
/
gitmo/Role-Tiny.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6841e934ec0f157486efbafbe726e3489af26aad
[gitmo/Role-Tiny.git]
/
t
/
load_module.t
1
# work around RT#67692
2
use Moo::_Utils;
3
use strictures 1;
4
5
use Test::More;
6
7
local @INC = (sub {
8
return unless $_[1] eq 'Foo/Bar.pm';
9
my $source = "package Foo::Bar; sub baz { 1 } 1";
10
open my $fh, '<', \$source;
11
$fh;
12
}, @INC);
13
14
{ package Foo::Bar::Baz; sub quux { } }
15
16
_load_module("Foo::Bar");
17
18
ok(eval { Foo::Bar->baz }, 'Loaded module ok');
19
20
done_testing;