Commit | Line | Data |
---|---|---|
cd4896a8 | 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; |