lib/Tak/ModuleSender.pm

   1 package Tak::ModuleSender;
   2
   3 use IO::All;
   4 use Moo;
   5
   6 with 'Tak::Role::Service';
   7
   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) {
  12     die [ 'failure' ];
  13   }
  14   my $code = $io->all;
  15   return $code;
  16 }
  17
  18 1;