Giblog

 view release on metacpan or  search on metacpan

lib/Giblog.pm  view on Meta::CPAN

  my $str = shift;
  my $min = min map { m/^([ \t]*)/; length $1 || () } split "\n", $str;
  $str =~ s/^[ \t]{0,$min}//gm if $min;
  return $str;
}

sub run_command {
  my ($class, @argv) = @_;

  # Command line option
  local @ARGV = @argv;
  my $getopt_option_save = Getopt::Long::Configure(qw(default no_auto_abbrev no_ignore_case pass_through));
  GetOptions(
    "h|help" => \my $help,
    "H|C|home=s" => \my $home_dir,
  );
  Getopt::Long::Configure($getopt_option_save);

  # Command name
  my $command_name = shift @ARGV;

lib/Giblog/Command/all.pm  view on Meta::CPAN

sub run {
  my ($self, @argv) = @_;
  
  my $message;
  my $has_no_build_option;
  my $has_no_save_option;
  my $has_no_publish_option;
  my $has_no_deploy_option;
  {
    local @ARGV = @argv;
    my $getopt_option_all = Getopt::Long::Configure(qw(default no_auto_abbrev no_ignore_case));
    GetOptions(
      'm=s' => \$message,
      'no-build' => \$has_no_build_option,
      'no-save' => \$has_no_save_option,
      'no-publish' => \$has_no_publish_option,
      'no-deploy' => \$has_no_deploy_option,
    );
    Getopt::Long::Configure($getopt_option_all);
    @argv = @ARGV;

lib/Giblog/Command/publish.pm  view on Meta::CPAN

use Getopt::Long 'GetOptions';

use Carp 'confess';

sub run {
  my ($self, @argv) = @_;
  
  my $has_build_option;
  my $has_deploy_option;
  {
    local @ARGV = @argv;
    my $getopt_option_all = Getopt::Long::Configure(qw(default no_auto_abbrev no_ignore_case));
    GetOptions(
      'build' => \$has_build_option,
      'deploy' => \$has_deploy_option,
    );
    Getopt::Long::Configure($getopt_option_all);
    @argv = @ARGV;
  }
  my ($remote_rep, $branch) = @argv;
  

lib/Giblog/Command/save.pm  view on Meta::CPAN

use Time::Piece 'localtime';
use Getopt::Long 'GetOptions';

use Carp 'confess';

sub run {
  my ($self, @argv) = @_;
  
  my $message;
  {
    local @ARGV = @argv;
    my $getopt_option_save = Getopt::Long::Configure(qw(default no_auto_abbrev no_ignore_case));
    GetOptions(
      'm=s' => \$message,
    );
    Getopt::Long::Configure($getopt_option_save);
    @argv = @ARGV;
  }
  my ($remote_rep, $branch) = @argv;
  
  my $api = $self->api;

 view all matches for this distribution
 view release on metacpan -  search on metacpan