File Coverage

blib/lib/Giblog/Command/all.pm

Criterion	Covered	Total	%
statement	21	51	41.1
branch	0	16	0.0
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	29	76	38.1

package Giblog::Command::all;

use base 'Giblog::Command';

use strict;
use warnings;
use Mojolicious;
use Time::Piece 'localtime';
use Getopt::Long 'GetOptions';

use Carp 'confess';

sub run {
  my ($self, @argv) = @_;

  my $message;
  my $has_deploy_option;
  {
    local @ARGV = @argv;
    my $getopt_option_all = Getopt::Long::Configure(qw(default no_auto_abbrev no_ignore_case));
    GetOptions(
      'm=s' => \$message,
      'deploy' => \$has_deploy_option,
    );
    Getopt::Long::Configure($getopt_option_all);
    @argv = @ARGV;
  }
  my ($remote_rep, $branch) = @argv;

  my $api = $self->api;

  my $home_dir = $api->rel_file('.');

  unless (defined $message) {
    confess 'Must be specify message using -m option';
  }

  unless (defined $remote_rep) {
    confess 'Must be specify remote repository name';
  }

  unless (defined $branch) {
    confess 'Must be specify branch name';
  }

  my @giblog_build_command = ('giblog', '-C', $home_dir, 'build');
  if (system(@giblog_build_command) == -1) {
    confess "Fail giblog all command. Command is @giblog_build_command: $?";
  }
  my @giblog_save_command = ('giblog', '-C', $home_dir, 'save', '-m', $message, $remote_rep, $branch);
  if(system(@giblog_save_command) == -1) {
    confess "Fail giblog all command. Command is @giblog_save_command : $?";
  }
  my @giblog_publish_command = ('giblog', '-C', $home_dir, 'publish', $remote_rep, $branch);
  if (system(@giblog_publish_command) == -1) {
    confess "Fail giblog all command. Command is @giblog_publish_command : $?";
  }

  if ($has_deploy_option) {
    my @giblog_deploy_command = ('giblog', '-C', $home_dir, 'deploy');
    if (system(@giblog_deploy_command) == -1) {
      confess "Fail giblog all command with --deploy option. Command is @giblog_deploy_command: $?";
    }
  }
}

1;

=encoding utf8

=head1 NAME

Giblog::Command::all - all command

=head1 DESCRIPTION

L is all command to execute "giblog build", "giblog save", and "giblog publish".

=head1 USAGE

  giblog all -m COMMIT_COMMENT REMOTE_REPOSITORY BRANCH

  giblog all -m COMMIT_COMMENT --deploy REMOTE_REPOSITORY BRANCH

=head1 METHODS

L inherits all methods from L and
implements the following new ones.

=head2 run

  $command->run('-m', $message, $remote_repository, $branch);
  $command->run('-m', $message, '--deploy', $remote_repository, $branch);

all command executes the following git commands(giblog build, giblog save, giblog publish).

This is the same as the following command. In this example, the commit message is "Hello". the repository name is "origin". the branch name is "main".

  giblog build
  giblog save -m "Hello" origin main
  giblog publish origin main

If C<--deploy> option is specified, "giblog deploy" is executed after executing "giblog all" command.