lib/Tak/ModuleLoader/Hook.pm

   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;