File Coverage

blib/lib/Getopt/Kingpin/Arg.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	36	36	100.0

package Getopt::Kingpin::Arg;
use 5.008001;
use strict;
use warnings;
use Getopt::Kingpin::Base -base;

our $VERSION = "0.09";

sub help_name {
    my $self = shift;
    my $mode = shift;

    if (not defined $mode) {
        $mode = 0;
    }

    my $ret = '<' . $self->name . '>';
    if ($mode and $self->is_cumulative) {
        $ret = $ret . '...';
    }
    if (not $self->_required) {
        $ret = '[' . $ret . ']';
    }
    return $ret;
}

1;
__END__