Commit | Line | Data |
---|---|---|
799b77f3 | 1 | package Tak::ModuleSender; |
2 | ||
3 | use IO::All; | |
4 | use Moo; | |
5 | ||
2791fd73 | 6 | with 'Tak::Role::Service'; |
7 | ||
799b77f3 | 8 | sub handle_source_for { |
9 | my ($self, $module) = @_; | |
10 | my $io = io->dir("$ENV{HOME}/perl5/lib/perl5")->catfile($module); | |
11 | unless ($io->exists) { | |
2791fd73 | 12 | die [ 'failure' ]; |
799b77f3 | 13 | } |
14 | my $code = $io->all; | |
2791fd73 | 15 | return $code; |
799b77f3 | 16 | } |
17 | ||
18 | 1; |