| line |
true |
false |
branch |
|
47
|
0 |
12 |
unless @_ |
|
54
|
11 |
6 |
if ($switch =~ s/^-([_0-9a-zA-Z])$/$1/s) { } |
|
|
6 |
0 |
elsif ($switch =~ s/^--([-_0-9a-zA-Z]{2,})$/$1/s) { } |
|
56
|
0 |
11 |
if $$short{$switch} and $$short{$switch}{'type'} ne 'HELP' |
|
64
|
0 |
6 |
if $$long{$switch} and $$long{$switch}{'type'} ne 'HELP' |
|
75
|
0 |
12 |
unless $long_count or $short_count |
|
81
|
6 |
6 |
if (@_ and ref($_[0] || '') eq 'SCALAR') |
|
85
|
4 |
2 |
if (@_ and ref($_[0] || '') eq 'SCALAR') |
|
91
|
0 |
12 |
if @_ % 2 |
|
95
|
0 |
4 |
unless defined $k |
|
96
|
0 |
4 |
unless length $k |
|
99
|
0 |
4 |
if exists $$new{$k} |
|
115
|
0 |
12 |
if $self->can($m) |
|
134
|
10 |
2 |
if $self->can($m) |
|
143
|
0 |
4 |
unless @$c |
|
147
|
0 |
4 |
if (defined $val) { } |
|
|
0 |
4 |
elsif (defined $$option{'default'}) { } |
|
154
|
0 |
4 |
unless grep(($val eq $_), @$c) |
|
173
|
2 |
0 |
if (defined $$slot and $$slot =~ /\e/) |
|
176
|
2 |
0 |
if (defined $$slot and length $$slot) { } |
|
194
|
0 |
2 |
unless ref $sub and UNIVERSAL::isa($sub, 'CODE') |
|
197
|
2 |
0 |
if $title and ref $title eq 'SCALAR' |
|
198
|
2 |
0 |
if $desc and ref $desc eq 'SCALAR' |
|
200
|
2 |
0 |
if $desc |
|
206
|
0 |
2 |
if ($self->to_run_in_eval) { } |
|
211
|
0 |
0 |
if ($@) { } |
|
242
|
0 |
0 |
unless (@$them) |
|
257
|
0 |
0 |
unless defined $f |
|
258
|
0 |
0 |
if ref $f eq 'SCALAR' |
|
259
|
0 |
0 |
unless defined $f and length $f |
|
263
|
0 |
0 |
if $f eq '.NO.' |
|
265
|
0 |
0 |
if $seen{$f}++ |
|
266
|
0 |
0 |
unless (-e $f) |
|
270
|
0 |
0 |
unless (-r _) |
|
275
|
0 |
0 |
if (-f _) { } |
|
|
0 |
0 |
elsif (-d _) { } |
|
276
|
0 |
0 |
if (-s _) { } |
|
284
|
0 |
0 |
if $d eq $f or not length $d |
|
308
|
0 |
0 |
unless @$to_display |
|
314
|
0 |
0 |
unless $^O =~ /Win32/ |
|
315
|
0 |
0 |
unless $^O =~ /Win32/ |
|
319
|
0 |
0 |
if $^O =~ /Win32/ or $^O =~ /darwin/ |
|
327
|
0 |
0 |
if ($^O =~ /darwin/) { } |
|
|
0 |
0 |
elsif ($^O =~ /Win32/) { } |
|
329
|
0 |
0 |
unless defined $i and length $i |
|
338
|
0 |
0 |
unless defined $i and length $i |
|
383
|
0 |
2 |
unless defined $in and length $in |
|
390
|
0 |
2 |
unless defined $after |
|
403
|
0 |
2 |
unless defined $dir |
|
404
|
0 |
2 |
unless opendir GOODINDIR, $dir |
|
409
|
30 |
0 |
unless $this =~ /$pattern/ |
|
410
|
0 |
0 |
if ($1 > $max) |
|
419
|
2 |
0 |
if ($max == -1) { } |
|
425
|
0 |
2 |
unless $out =~ s/\e/$max/ |
|
452
|
0 |
0 |
if $$self{'description'} or $$self{'title'} |
|
459
|
0 |
0 |
$$o{'long'} ? : |
|
|
0 |
0 |
$$o{'short'} ? : |
|
463
|
0 |
0 |
if defined $$o{'short'} |
|
464
|
0 |
0 |
if defined $$o{'long'} |
|
466
|
0 |
0 |
if ($type eq 'yes_no') { } |
|
|
0 |
0 |
elsif ($type eq 'string') { } |
|
|
0 |
0 |
elsif ($type eq 'file') { } |
|
|
0 |
0 |
elsif ($type eq 'new_file') { } |
|
|
0 |
0 |
elsif ($type eq 'choose') { } |
|
478
|
0 |
0 |
$long ? : |
|
485
|
0 |
0 |
if ($long and $$o{'short'} and $$o{'long'}) |
|
486
|
0 |
0 |
unless $switch =~ s/^(-.(\S*))/$1 or --$$o{'long'}$2/s |
|
491
|
0 |
0 |
$long ? : |
|
495
|
0 |
0 |
unless $seen{'h'} |
|
496
|
0 |
0 |
unless $seen{'help'} |
|
497
|
0 |
0 |
if $$self{'license_short'} |
|
509
|
0 |
0 |
if $$self{'description'} or $$self{'title'} |
|
516
|
0 |
0 |
$$o{'long'} ? : |
|
|
0 |
0 |
$$o{'short'} ? : |
|
520
|
0 |
0 |
if defined $$o{'short'} |
|
521
|
0 |
0 |
if defined $$o{'long'} |
|
523
|
0 |
0 |
if ($type eq 'yes_no') { } |
|
|
0 |
0 |
elsif ($type eq 'string') { } |
|
|
0 |
0 |
elsif ($type eq 'file') { } |
|
|
0 |
0 |
elsif ($type eq 'new_file') { } |
|
|
0 |
0 |
elsif ($type eq 'choose') { } |
|
539
|
0 |
0 |
unless $seen{'h'} |
|
540
|
0 |
0 |
unless $seen{'help'} |
|
541
|
0 |
0 |
if $$self{'license_short'} |
|
552
|
0 |
0 |
if $$self{'description'} or $$self{'title'} |
|
558
|
0 |
0 |
$$o{'long'} ? : |
|
|
0 |
0 |
$$o{'short'} ? : |
|
562
|
0 |
0 |
if defined $$o{'short'} |
|
563
|
0 |
0 |
if defined $$o{'long'} |
|
565
|
0 |
0 |
if ($type eq 'yes_no') { } |
|
|
0 |
0 |
elsif ($type eq 'string') { } |
|
|
0 |
0 |
elsif ($type eq 'file') { } |
|
|
0 |
0 |
elsif ($type eq 'new_file') { } |
|
|
0 |
0 |
elsif ($type eq 'choose') { } |
|
580
|
0 |
0 |
if ($$o{'short'} and $$o{'long'}) |
|
581
|
0 |
0 |
unless $switch =~ s/^(-.(\S*))/$1 or --$$o{'long'}$2/s |
|
586
|
0 |
0 |
unless $seen{'h'} |
|
587
|
0 |
0 |
unless $seen{'help'} |
|
588
|
0 |
0 |
if $$self{'license_short'} |