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