[scpubgit/Tak.git] / bin / tak-repl

#!/usr/bin/env perl

use Tak::WorldHandle;
use Tak::REPL;
use strictures 1;

my $world = do {
  if (my $ssh_target = $ARGV[0]) {
    Tak::WorldHandle->new_remote($ssh_target);
  } else {
    Tak::WorldHandle->new_local;
  }
};

Tak::REPL->new(world => $world)->run;
Commit	Line	Data
8b6c1f59	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;