bin/tak-repl

   1 #!/usr/bin/env perl
   2
   3 use Tak::WorldHandle;
   4 use Tak::REPL;
   5 use strictures 1;
   6
   7 my $world = do {
   8   if (my $ssh_target = $ARGV[0]) {
   9     Tak::WorldHandle->new_remote($ssh_target);
  10   } else {
  11     Tak::WorldHandle->new_local;
  12   }
  13 };
  14
  15 Tak::REPL->new(world => $world)->run;