File Coverage

blib/lib/HTTP/Balancer/Role/Command.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package HTTP::Balancer::Role::Command;

use Modern::Perl;

use Moose::Role;

use Namespace::Dispatch;

with qw( HTTP::Balancer::Role
         MooseX::Getopt::Dashes );

around _usage_format => sub {
    my $orig = shift;
    my $self = shift;
    my $command_name = $self->command_name;
    my $ordinary_args = join " ", map { "<$_>" } $self->ordinary_args;
    "usage: %c $command_name $ordinary_args %o";
};

=head1 NAME

HTTP::Balancer::Role::Command - the mixin for command handlers

=head1 SYNOPSIS

    package HTTP::Balancer::Command::SomeCommand;
    use Moose;
    with qw( HTTP::Balancer::Role::Command );

=head1 METHODS

=head2 prepare()

the instance method called before running.

the method is here to be hooked with 'around' keyword of Moose.

=cut

sub prepare {
    my ($self, ) = @_;
    return $self;
}

=head2 command_name

class and instance method

returns the last name of current command, lowercase, separated with whitespace.

=cut

sub command_name {
    my ($self, ) = @_;
    my $ref = ref($self) || $self;
    $ref =~ s{HTTP::Balancer::Command::}{};
    $ref =~ s{::}{ }g;
    return lc($ref);
}

=head2 ordinary_args

returns the ordinary arguments for arbitrary command handler.

the method is here to be overrided and returns empty list by default.

=cut

sub ordinary_args {
    qw();
}

=head2 argv($position)

helper.

return the ordinary argument at $position or exit with help text.

=cut

sub argv {
    my ($self, $position) = @_;
    $self->extra_argv->[$position] or $self->usage->die;
}

no Moose::Role;

1;