File Coverage

blib/lib/CLI/Driver/Help.pm

Criterion	Covered	Total	%
statement	101	114	88.6
branch	24	56	42.8
condition	2	6	33.3
subroutine	21	22	95.4
pod			n/a
total	148	198	74.7

package CLI::Driver::Help;

use Modern::Perl;
use Moose;
use namespace::autoclean;
use Kavorka '-all';
use Data::Printer alias => 'pdump';

with
  'CLI::Driver::CommonRole';

###############################
###### PUBLIC ATTRIBUTES ######
###############################

#has desc => ( is => 'rw' );

has args => (
    is      => 'rw',
    isa     => 'HashRef[Str]',
    default => sub { {} }
);

has examples => (
    is      => 'rw',
    isa     => 'ArrayRef[Str]',
    default => sub { [] }
);

method parse (HashRef|Undef :$href!) {

    # Don't fail if no help provided.
    return 1 if !defined $href;

    # self->args
    if( exists $href->{args} ){
       $self->args( { %{$href->{args}} } );
    }

    # self->examples
    if( exists $href->{examples} ){
       $self->examples( [ @{$href->{examples}} ] );
    }

    return 1;        # success
}

method has_help (Str $arg) {

    if( exists $self->args->{$arg} ){
        return 1;
    }

    return 0;
}

method get_usage (Str $arg) {

    return $self->get_help($arg);
}

method get_help (Str $arg) {

    if ($self->has_help($arg)) {
        return $self->args->{$arg};
    }

    return "";
}

method has_examples {

    if( @{$self->examples} ){
        return 1;
    }

    return 0;
}

__PACKAGE__->meta->make_immutable;

1;