view release on metacpan or  search on metacpan

bin/hopkins  view on Meta::CPAN

use YAML 'Dump';

our $host : Getopt(host=s localhost);
our $port : Getopt(port=i 8080);

my $soap	= SOAP::Lite->uri("http://$host:$port");
my $proxy	= $soap->proxy("http://$host:$port?session=rpc");

if (scalar @ARGV == 0) {
	my $term	= new Term::ReadLine 'hopkins';
	my $history	= ((getpwuid($<))[7]) . '/.hopkins_history';

	if ($term->can('ReadHistory')) {
		$term->ReadHistory($history);
	} else {
		print "hopkins: install Term::ReadLine::Gnu for history file support\n";
	}

	while (defined(my $line = $term->readline('hopkins> '))) {
		my @args	= string2list($line);
		my $action	= shift @args;