[scpubgit/Tak.git] / lib / Tak / ModuleLoader / Hook.pm

package Tak::ModuleLoader::Hook;

use Moo;

has sender => (is => 'ro', required => 1, weak_ref => 1);

sub Tak::ModuleLoader::Hook::INC { # unqualified INC forced into package main
  my ($self, $module) = @_;
  my $result = $self->sender->result_of(source_for => $module);
  if ($result->is_success) {
    my $code = $result->get;
    open my $fh, '<', \$code;
    return $fh;
  }
  return;
}

1;
Commit	Line	Data
2791fd73	1	package Tak::ModuleLoader::Hook;
	2
	3	use Moo;
	4
1224ea90	5	has sender => (is => 'ro', required => 1, weak_ref => 1);
2791fd73	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;