#!/usr/bin/perl
use strict;
use warnings;
use JIB::Source;
@ARGV or die "Usage: $0 SRCDIR [SRCDIR, ... ]\n";
for my $dir ( @ARGV ) {
my $src = JIB::Source->new( dir => $dir )
or die "Could not create JIB::Source object from '$dir'";
my $pkg = $src->build
or die "Could not build source package from '$dir'";
print "Created package for '$dir' at:\n\t" . $pkg->file . $/.$/;
}