File Coverage

blib/lib/Getopt/Kingpin/Command.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	14	14	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	65	65	100.0

package Getopt::Kingpin::Command;
use 5.008001;
use strict;
use warnings;
use Getopt::Kingpin -base;
use Carp;

our $VERSION = "0.09";

sub help_short {
    my $self = shift;
    my @help = ($self->name);

    if ($self->name eq "help") {
        push @help, "[...]";
    } else {
        if ($self->flags->count > 1) {
            push @help, "[]";
        }

        if ($self->commands->count > 0) {
            push @help, "";
            push @help, "[ ...]";
        } else {
            foreach my $arg ($self->args->get_all) {
                push @help, $arg->help_name(1);
            }
        }
    }

    return join " ", @help;
}

sub help {
    my $self = shift;
    printf "usage: %s %s\n", $self->parent->name, $self->help_short;
    printf "\n";

    if ($self->description ne "") {
        printf "%s\n", $self->description;
        printf "\n";
    }

    printf "%s\n", $self->flags->help;

    if ($self->args->count > 0) {
        printf "%s\n", $self->args->help;
    }

    if ($self->commands->count > 1) {
        printf "Subcommands:\n";
        foreach my $sub ($self->commands->get_all) {
            next if $sub->name eq "help";
            printf "  %s %s\n", $sub->parent->name, $sub->name;
            printf "    %s\n", $sub->description;
            printf "\n";
        }
    }
}

1;
__END__