package Tak::ModuleSender;

use IO::All;
use Moo;

sub handle_source_for {
  my ($self, $module) = @_;
  my $io = io->dir("$ENV{HOME}/perl5/lib/perl5")->catfile($module);
  unless ($io->exists) {
    return FAILURE => undef;
  }
  my $code = $io->all;
  return RESULT => $code;
}

1;
