lib/Tak/ModuleSender.pm

   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;