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

package Tak::ModuleSender;

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) {
    die [ 'failure' ];
  }
  my $code = $io->all;
  return $code;
}

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