view release on metacpan or  search on metacpan

script/bs  view on Meta::CPAN

use Data::Printer;
use Getopt::Long;

# TODO: Think about differences between "new", and things like "init" or "add"
use constant CMDRE => qr/^(build|clone|package|sign|release|new|depends)$/;

our $config = {
  sql => {
    source => $ENV{BS_DBSRC},
    username => '',
    password => ''
  }
};

die "No database source provided! Please set `sql.source` in your config file"
  . " or the BS_DBSRC env variable." unless $config->{sql}{source};

our %dispatch = (
  build => \&buildcmd,
  release => \&releasecmd
);

script/bs  view on Meta::CPAN

GetOptions("sign-package" => \$signpkg,
           "sign-repo-db" => \$repo_signdb,
           "add-to-repo" => \$repo_addpkg,
           "copy-pkgarch-repo" => \$repo_copypkgarch,
           "verbose" => \$verbose,
           "<>" => \&handle_barearg);

$repo_addpkg = 1 if $repo_copypkgarch;

our $conn = DBIx::Connector->new($$config{sql}
  ->@{qw(source username password)}, {
    sqlite_unicode => 1
  });

$dispatch{$currcmd}->();

sub _buildpkg ($pkg) {
  
}

sub buildcmd {