Bring back 5.8.1 support
[gitmo/Moo.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;