| line |
true |
false |
branch |
|
39
|
0 |
0 |
if defined $self->default_val
|
|
42
|
0 |
0 |
if $self->max and $self->max < $self->min
|
|
45
|
0 |
0 |
if (defined $self->default)
|
|
46
|
0 |
0 |
if $self->min == 0
|
|
48
|
0 |
0 |
if ($self->is_trigger) { }
|
|
49
|
0 |
0 |
if ($self->is_repeatable) { }
|
|
50
|
0 |
0 |
unless $self->default =~ /\A\d+\z/msu
|
|
53
|
0 |
0 |
unless $self->default =~ /\A[01]\z/msu
|
|
57
|
0 |
0 |
if ($self->hash) { }
|
|
|
0 |
0 |
elsif ($self->is_repeatable) { }
|
|
58
|
0 |
0 |
unless XXX
|
|
61
|
0 |
0 |
unless XXX
|
|
64
|
0 |
0 |
if XXX
|
|
70
|
0 |
0 |
if (defined $self->default_val)
|
|
71
|
0 |
0 |
if $self->is_trigger or $self->hash or $self->is_repeatable
|
|
74
|
0 |
0 |
if ($self->is_trigger) { }
|
|
75
|
0 |
0 |
if $self->hash
|
|
77
|
0 |
0 |
if ($self->negated) { }
|
|
78
|
0 |
0 |
if defined $self->short
|
|
80
|
0 |
0 |
if $self->is_repeatable
|
|
82
|
0 |
0 |
if defined $self->default and $self->default == 0
|
|
85
|
0 |
0 |
if not $self->is_repeatable and defined $self->default and $self->default == 1
|
|
89
|
0 |
0 |
if $self->negated
|
|
96
|
0 |
0 |
defined $self->default ? :
|
|
100
|
0 |
0 |
$self->min ? :
|
|
104
|
0 |
0 |
if ($self->is_trigger and defined $self->default)
|
|
105
|
0 |
0 |
if $self->default == 0
|
|
107
|
0 |
0 |
if $self->default == 1 and not $self->is_repeatable
|
|
118
|
0 |
0 |
defined $self->isa ? :
|
|
122
|
0 |
0 |
$self->max != 1 ? :
|
|
126
|
0 |
0 |
$self->min && !defined($self->default) ? :
|
|
130
|
0 |
0 |
$self->negated ? :
|
|
134
|
0 |
0 |
unless ($self->is_trigger)
|
|
137
|
0 |
0 |
if (not $ref) { }
|
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($ref eq 'CODE') { }
|
|
|
0 |
0 |
elsif ($ref eq 'Regexp') { }
|
|
157
|
0 |
0 |
if defined $self->short
|
|
159
|
0 |
0 |
if ($self->is_trigger) { }
|
|
160
|
0 |
0 |
if $self->negated
|
|
162
|
0 |
0 |
if $self->is_repeatable
|
|
165
|
0 |
0 |
if (defined $self->default_val) { }
|
|
171
|
0 |
0 |
if ($self->hash) { }
|
|
|
0 |
0 |
elsif ($self->is_repeatable) { }
|
|
184
|
0 |
0 |
$self->short ? :
|
|
188
|
0 |
0 |
if $self->negated
|
|
192
|
0 |
0 |
unless ($self->is_trigger)
|
|
195
|
0 |
0 |
if ($self->hash) { }
|
|
199
|
0 |
0 |
if (defined $self->default_val) { }
|
|
210
|
0 |
0 |
if $self->is_repeatable
|
|
212
|
0 |
0 |
if $self->is_required
|
|
214
|
0 |
0 |
if @attrs
|
|
223
|
0 |
0 |
if exists $$opt{$self->getopt_name}
|
|
225
|
0 |
0 |
if (not exists $opt->{$name}) { }
|
|
|
0 |
0 |
elsif (defined $self->default_val and $$opt{$name} eq '') { }
|
|
226
|
0 |
0 |
if ($self->min) { }
|
|
227
|
0 |
0 |
if (defined $self->default) { }
|
|
249
|
0 |
0 |
if ($self->is_repeatable)
|
|
252
|
0 |
0 |
if ($self->is_trigger) { }
|
|
|
0 |
0 |
elsif (not ref $$opt{$name}) { }
|
|
|
0 |
0 |
elsif (XXX) { }
|
|
|
0 |
0 |
elsif (XXX) { }
|
|
256
|
0 |
0 |
if $count == 0
|
|
269
|
0 |
0 |
if $count < $self->min
|
|
272
|
0 |
0 |
if $self->max and $count > $self->max
|
|
278
|
0 |
0 |
if (defined $self->isa and my $error_msg = $self->_validate_isa($$opt{$name}))
|