use IO::All;
use Moo;
+with 'Tak::Role::Service';
+
sub handle_source_for {
my ($self, $module) = @_;
my $io = io->dir("$ENV{HOME}/perl5/lib/perl5")->catfile($module);
unless ($io->exists) {
- return FAILURE => undef;
+ die [ 'failure' ];
}
my $code = $io->all;
- return RESULT => $code;
+ return $code;
}
1;