Commit | Line | Data |
---|---|---|
2791fd73 | 1 | package Tak::ModuleLoader::Hook; |
2 | ||
3 | use Moo; | |
4 | ||
5 | has sender => (is => 'ro', required => 1); | |
6 | ||
7 | sub Tak::ModuleLoader::Hook::INC { # unqualified INC forced into package main | |
8 | my ($self, $module) = @_; | |
9 | my $result = $self->sender->result_of(source_for => $module); | |
10 | if ($result->is_success) { | |
11 | my $code = $result->get; | |
12 | open my $fh, '<', \$code; | |
13 | return $fh; | |
14 | } | |
15 | return; | |
16 | } | |
17 | ||
18 | 1; |