File Coverage

blib/lib/MooX/Commander/IsaHelpCommand.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package MooX::Commander::IsaHelpCommand;

use Moo::Role;

use String::CamelSnakeKebab qw/upper_camel_case/;
use Class::Load qw/load_class/;

with 'MooX::Commander::HasOptions';

has '+argv' => (is => 'lazy');

sub go {
    my ($self, $cmd) = @_;

    $self->usage unless $cmd;

    my $class  = ref($self);
    $class =~ s/::Help$/::/;
    $class  .= upper_camel_case $cmd;

    eval { load_class($class) };
    $self->usage if $@;

    $class->new(argv => $self->argv)->usage;
    die $@ if $@;
}

1;

=encoding utf-8

=head1 NAME

MooX::Commander::IsaHelpCommand - Add a help command to your command line app

=head1 SYNOPSIS

    package PieFactory::Cmd::Help;
    use Moo;
    with 'MooX::Commander::IsaHelpCommand';

    sub usage {
        return >> EOF
    usage: pie-factory [options]

    You have inherited a pie factory.  Use your powers wisely.

    COMMANDS
    pie-factory recipe list             List pie recipes
    pie-factory recipe show     Display a recipe
    pie-factory recipe add      Add a recipe
    pie-factory recipe delete   Delete a recipe
    pie-factory bake               Bake a pie
    pie-factory eat                Eat a pie
    pie-factory throw      Throw a pie at something
    pie-factory help               Get help with a command

    OPTIONS
    -v, --version  pie-factory version
    -h, --help     Show this message
    EOF
    }


=head1 DESCRIPTION

MooX::Commander::IsaHelpCommand is a simple Moo::Role for adding a help command
to your command line app.

It loads and instantiates the command class that the user is requesting help
with and calls the C method on that object.  C works the same
way here as it does in L -- it prints
the usage statement and exits the program unsuccessfuly.

=head1 LICENSE

Copyright (C) Eric Johnson.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHOR

Eric Johnson [e-mail]

=cut