File Coverage

blib/lib/Giblog/Command.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch			n/a
condition	0	3	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	26	57.6

package Giblog::Command;

use strict;
use warnings;
use Carp 'confess';

sub new {
  my $class = shift;

  my $self = {@_};

  return bless $self, ref $class || $class;
}

sub api { shift->{api} }

sub run { confess 'Method "run" not implemented by subclass' }

1;

=encoding utf8

=head1 NAME

Giblog::Command - command base class

=head1 DESCRIPTION

L is command base class.

You can also create your command inheriting L like L, L or L.

=head1 METHODS

=head2 new

  $command->new(%args);

Create command object.

Arguments:

=over 2

=item * api

L object.

=back

=head2 api

  $command->api;

Get L object.

=head2 run

  $command->run(@args);

Run command. This method is implemented by subclass.