1 package Tak::ModuleLoader::Hook;
5 has sender => (is => 'ro', required => 1);
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;