|
#!/usr/bin/perl
use 5.10.0;
our $VERSION = '0.01' ;
my $VERBOSE = '' ;
my $RELEASE = '' ;
my $NO_CHANGES = '' ;
my $NO_COPYRIGHT = '' ;
my $NO_RT = '' ;
my $NO_TEST = '' ;
Getopt::Long::GetOptions(
verbose => \ $VERBOSE ,
release => \ $RELEASE ,
nochanges => \ $NO_CHANGES ,
nocopyright => \ $NO_COPYRIGHT ,
nort => \ $NO_RT ,
notest => \ $NO_TEST ,
);
unless ( @ARGV ) {
die "Missing or invalid distribution name" ;
}
my $module = shift @ARGV ;
my $repository = $module ;
$repository =~ s/::/-/g;
my $release = ADAMK::Release->new(
module => $module ,
github => {
username => 'adamkennedy' ,
repository => $repository ,
},
release => $RELEASE ,
no_changes => $NO_CHANGES ,
no_copyright => $NO_COPYRIGHT ,
no_rt => $NO_RT ,
no_test => $NO_TEST ,
);
$release ->run;
|