CLI-Driver
view release on metacpan - search on metacpan
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) {
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.530 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )