[scpubgit/Tak.git] / lib / Tak / ModuleSender.pm

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;
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;