#!/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 . $/.$/;
}