| line |
true |
false |
branch |
|
111
|
0 |
18 |
if @$options % 2 |
|
116
|
7 |
8 |
if (my $pos = $params{'positional'}) |
|
121
|
0 |
12 |
if exists $params{$key} |
|
144
|
0 |
37 |
if @_ % 2 |
|
154
|
0 |
60 |
if $$self{'stopped'} |
|
157
|
3 |
57 |
if $arg eq '--' |
|
161
|
23 |
34 |
if ($dash eq '') { } |
|
|
28 |
6 |
elsif ($dash eq '--') { } |
|
|
6 |
0 |
elsif ($dash eq '-') { } |
|
163
|
2 |
26 |
if ($arg =~ s/=(.*)//) |
|
175
|
0 |
37 |
if $$self{'stopped'} < 0 |
|
181
|
0 |
50 |
if $$_{'call'} |
|
184
|
0 |
0 |
if $is_set{$$d{'name'}} |
|
186
|
0 |
0 |
(ref $def || '') eq 'CODE' ? : |
|
195
|
19 |
17 |
if (@$args) |
|
198
|
6 |
11 |
if (not $is_set{$k} or $$self{'opt_data'}{$k}{'form'}) |
|
201
|
2 |
15 |
unless @$args |
|
206
|
2 |
34 |
if (my $def = $$self{'_defaults'}) |
|
209
|
0 |
2 |
if exists $$o{$k} |
|
210
|
2 |
0 |
if (my $isa = $$self{'opt_data'}{$k}{'isa'}) |
|
212
|
0 |
2 |
if $@ |
|
263
|
0 |
34 |
unless my $toset = $$self{'toset'} |
|
265
|
34 |
0 |
ref $name ? : |
|
|
0 |
34 |
unless my $d = ref $name ? $name : $$self{'opt_data'}{$name} |
|
270
|
13 |
21 |
if ($$d{'type'} eq 'boolean') { } |
|
271
|
7 |
6 |
$$d{'opposes'} ? : |
|
274
|
0 |
21 |
unless @$argv |
|
278
|
0 |
34 |
if (my $sub = $$d{'call'}) { } |
|
286
|
3 |
31 |
if (($$d{'form'} || '') eq 'HASH') { } |
|
288
|
0 |
3 |
unless @pair == 2 |
|
309
|
0 |
23 |
unless my $keep = $$self{'tokeep'} |
|
312
|
0 |
23 |
if (my $do = $$self{'arg_handler'}) |
|
314
|
0 |
0 |
unless &$do($self, $arg) |
|
334
|
0 |
22 |
if @_ % 2 |
|
337
|
1 |
21 |
if $name =~ /-/ |
|
338
|
20 |
1 |
if (not $s{'form'}) { } |
|
340
|
4 |
16 |
if $ref and $ref ne 'CODE' |
|
346
|
6 |
15 |
unless ($s{'type'}) |
|
347
|
3 |
3 |
$s{'form'} ? : |
|
350
|
0 |
21 |
if (my $callback = $s{'call'}) |
|
351
|
0 |
0 |
unless ref $callback or !1 |
|
356
|
0 |
21 |
if ($$self{'opt_data'}{$name}) { } |
|
359
|
0 |
0 |
unless $name =~ /^no_/ |
|
365
|
6 |
15 |
if ($s{'type'} eq 'boolean') |
|
369
|
19 |
2 |
unless $s{'aliases'} |
|
400
|
2 |
6 |
unless my $d = $$self{'opt_data'}{$item} |
|
402
|
1 |
5 |
if $$d{'type'} eq 'boolean' |
|
419
|
6 |
16 |
if (defined $short) |
|
421
|
0 |
6 |
unless ref $short |
|
423
|
1 |
8 |
if length $item != 1 |
|
425
|
0 |
8 |
if exists $$st{$item} |
|
433
|
1 |
4 |
if $item =~ /-/ |
|
434
|
0 |
4 |
if exists $$at{$item} |
|
452
|
0 |
42 |
unless my $o = $$self{'object'} |
|
453
|
34 |
8 |
ref $k ? : |
|
|
0 |
42 |
unless my $d = ref $k ? $k : $$self{'opt_data'}{$k} |
|
459
|
8 |
33 |
if (my $form = $$d{'form'}) { } |
|
460
|
3 |
5 |
if ($form eq 'HASH') { } |
|
462
|
0 |
3 |
if @v % 2 |
|
490
|
0 |
58 |
unless my $d = $$self{'opt_data'}{$item} |
|
493
|
5 |
53 |
if (my $isa = $$d{'isa'}) |
|
495
|
1 |
4 |
if $@ |
|
499
|
57 |
0 |
if (my $type = $$d{'type'}) |
|
507
|
0 |
57 |
if $@ |
|
526
|
0 |
0 |
$ref eq 'ARRAY' ? : |
|
|
0 |
0 |
$ref eq 'HASH' ? : |
|
|
0 |
0 |
$ref ? : |
|
548
|
0 |
37 |
if $$self{'object'} |
|
594
|
17 |
11 |
if (my $d = $$self{'opt_data'}{$key}) |
|
600
|
0 |
11 |
unless @hit |
|
601
|
0 |
11 |
if @hit > 1 |
|
604
|
0 |
11 |
unless my $d = $$self{'opt_data'}{$canon} |
|
624
|
0 |
6 |
unless my $canon = $$self{'short'}{$c} |
|
626
|
0 |
6 |
unless my $data = $$self{'opt_data'}{$canon} |
|
632
|
0 |
0 |
unless $d[$i]{'type'} eq 'boolean' |
|
666
|
12 |
38 |
if $$o{'type'} || !1 and $$o{'opposes'} |
|
668
|
3 |
35 |
if (my $r = $$o{'form'}) { } |
|
671
|
1 |
2 |
if ($r eq 'HASH') { } |
|
|
2 |
0 |
elsif ($r eq 'ARRAY') { } |
|
672
|
1 |
0 |
$def ? : |
|
676
|
1 |
1 |
$def ? : |
|
685
|
15 |
20 |
if (exists $$o{'default'}) |
|
687
|
2 |
13 |
if ((ref $def || '') eq 'CODE') { } |