view release on metacpan or  search on metacpan

lib/CLI/Driver/Help.pm  view on Meta::CPAN

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};