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