File Coverage

blib/lib/Getopt/Kingpin/Arg.pm
Criterion Covered Total %
statement 23 23 100.0
branch 8 8 100.0
condition 3 3 100.0
subroutine 5 5 100.0
pod 1 1 100.0
total 40 40 100.0


line stmt bran cond sub pod time code
1             package Getopt::Kingpin::Arg;
2 31     31   513 use 5.008001;
  31         107  
3 31     31   152 use strict;
  31         56  
  31         693  
4 31     31   166 use warnings;
  31         58  
  31         1067  
5 31     31   238 use Getopt::Kingpin::Base -base;
  31         76  
  31         222  
6              
7             our $VERSION = "0.10";
8              
9             sub help_name {
10 103     103 1 173 my $self = shift;
11 103         146 my $mode = shift;
12              
13 103 100       187 if (not defined $mode) {
14 79         87 $mode = 0;
15             }
16              
17 103         1530 my $ret = '<' . $self->name . '>';
18 103 100 100     993 if ($mode and $self->is_cumulative) {
19 3         19 $ret = $ret . '...';
20             }
21 103 100       1560 if ($self->is_hash) {
22 4         26 $ret =~ s/
23             }
24 103 100       1872 if (not $self->_required) {
25 22         145 $ret = '[' . $ret . ']';
26             }
27 103         970 return $ret;
28             }
29              
30             1;
31             __END__