Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 91a45ae5a4
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (20 sloc) 0.404 kB
use Error::Die; # DEPEND
use XQP::Client; # DEPEND
use Cwd qw(abs_path);
if (!@ARGV) {
die "usage: xqpc <cmd> [args]";
}
my $cmd = shift;
my $xqp = XQP::Client->new;
$xqp->connect;
$xqp->cmd_start($cmd);
foreach my $arg (@ARGV) {
if ($arg eq '-') {
$xqp->cmd_arg(map { chomp; $_ } <STDIN>);
}
else {
$xqp->cmd_arg($arg);
}
}
$xqp->cmd_finish_loop(sub { print $_[0], "\n" });
exit 0;
Jump to Line
Something went wrong with that request. Please try again.