File Coverage

blib/lib/Giblog/Command/deploy.pm

Criterion	Covered	Total	%
statement	21	27	77.7
branch	0	2	0.0
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	29	38	76.3

package Giblog::Command::deploy;

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 $api = $self->api;

  my $deploy_perl_program = $api->rel_file('deploy.pl');

  my @execute_deploy_perl_program = ("$^X", $deploy_perl_program, @argv);
  if (system(@execute_deploy_perl_program) == -1) {
    confess "Fail executing the deployment program : @execute_deploy_perl_program : $?";
  }
}

1;

=encoding utf8

=head1 NAME

Giblog::Command::deploy - Deployment Command

=head1 DESCRIPTION

L is a command to deploy web sites.

=head1 USAGE

  giblog deploy

=head1 METHODS

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

=head2 run

  $command->run(@argv);

C command execute C in the home directory.

You can write any deployment process in C.

Command line arguments except the ones Giblog uses are passed to C command.