X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTak%2FWorld.pm;fp=lib%2FTak%2FWorld.pm;h=0000000000000000000000000000000000000000;hb=e4cfeeb95265cae3c02067a647b22bf3d4f0de0b;hp=83985e58ed21295005297d2eaf14eee18c6a37f6;hpb=13ca23bc5596a4e619cdb801e8444af30ca0631f;p=scpubgit%2FTak.git diff --git a/lib/Tak/World.pm b/lib/Tak/World.pm deleted file mode 100644 index 83985e5..0000000 --- a/lib/Tak/World.pm +++ /dev/null @@ -1,45 +0,0 @@ -package Tak::World; - -use Tak::JSONChannel; -use Tak::ServiceManager; -use Tak::ModuleLoader; -use Tak::Router; -use Tak::Remote; - -use Moo; - -has channel_args => (is => 'ro', required => 1); - -sub new_from_stdio { - open my $stdin, '<&', \*STDIN; - open my $stdout, '>&', \*STDOUT; - shift->new(channel_args => { read_fh => $stdin, write_fh => $stdout }); -} - -has router => (is => 'lazy'); - -sub _build_router { - my ($self) = @_; - my $channel = Tak::JSONChannel->new($self->channel_args); - - my $router = Tak::Router->new( - channel => $channel - ); - - my $remote = Tak::Remote->new( - router => $router, - name => 'module_sender' - ); - - my $loader = Tak::ModuleLoader->new( - remote => $remote - ); - - push @INC, $loader->inc_callback; - - return $router; -} - -sub run { shift->router->run } - -1;