| line |
true |
false |
branch |
|
141
|
0 |
0 |
unless ref $handler eq 'CODE' |
|
163
|
0 |
0 |
unless @_ > 0 and @_ % 2 == 0 |
|
212
|
0 |
0 |
if $string eq '' or $string =~ /\s/ |
|
229
|
0 |
0 |
if scalar @_ != 1 |
|
244
|
0 |
0 |
if $type eq 'section' or not defined $help |
|
249
|
0 |
0 |
if ($type eq 'boolean') { } |
|
254
|
0 |
0 |
if $pos_len > $maxoption |
|
255
|
0 |
0 |
if $pos_len > $maxoption |
|
256
|
0 |
0 |
if defined $argdesc |
|
263
|
0 |
0 |
if $optlen > $maxoption |
|
265
|
0 |
0 |
if (defined $argdesc) |
|
268
|
0 |
0 |
if $argdesclen > $maxargdesc |
|
317
|
0 |
0 |
if $@ |
|
319
|
0 |
0 |
if $@ |
|
323
|
0 |
0 |
if defined $Getopt::Tabular::LongHelp |
|
329
|
0 |
0 |
if ($type eq 'section') |
|
335
|
0 |
0 |
unless defined $help |
|
336
|
0 |
0 |
unless defined $argdesc |
|
341
|
0 |
0 |
if ($type eq 'boolean') { } |
|
346
|
0 |
0 |
if $show_default and defined $$value and $$value |
|
350
|
0 |
0 |
if $show_default and defined $$value and not $$value |
|
360
|
0 |
0 |
if ($Getopt::Tabular::OptionHandlers{$type} == \&process_pattern_option) |
|
362
|
0 |
0 |
if ($num == 1) { } |
|
364
|
0 |
0 |
if $show_default and defined $$value |
|
369
|
0 |
0 |
if $show_default and @$value and not grep((!defined($_)), @$value) |
|
375
|
0 |
0 |
if ($argdesc) |
|
377
|
0 |
0 |
if $argdesc |
|
380
|
0 |
0 |
if (length $expanded_option > $maxoption + 1) |
|
390
|
0 |
0 |
if defined $Getopt::Tabular::Usage |
|
410
|
0 |
36 |
unless (exists $Getopt::Tabular::OptionHandlers{$type}) |
|
415
|
6 |
30 |
if ($type eq 'boolean') { } |
|
|
30 |
0 |
elsif ($type ne 'section') { } |
|
419
|
6 |
0 |
if defined $neg |
|
452
|
31 |
15 |
unless $s eq substr($word, 0, length $s) |
|
456
|
15 |
0 |
if $s eq $word |
|
460
|
0 |
0 |
if ($match) |
|
468
|
0 |
0 |
unless $match |
|
497
|
0 |
0 |
ref $typedesc eq 'ARRAY' ? : |
|
501
|
0 |
0 |
$typedesc =~ /^[aeiou]/ ? : |
|
502
|
0 |
0 |
$n > 1 ? : |
|
522
|
0 |
14 |
unless (defined $val and $val =~ /^$Getopt::Tabular::Patterns{$type}$/x) |
|
545
|
30 |
16 |
if $$opt_desc[1] ne 'boolean' |
|
549
|
0 |
16 |
if (@options == 2) { } |
|
|
16 |
0 |
elsif (@options == 1) { } |
|
559
|
16 |
0 |
if (($prefix, $body) = $option =~ /^$pattern$/) |
|
592
|
0 |
0 |
if $up_pkg ne $this_pkg |
|
626
|
0 |
0 |
if $spoof |
|
628
|
0 |
0 |
if ($type eq 'const') { } |
|
|
0 |
0 |
elsif ($type eq 'copy') { } |
|
|
0 |
0 |
elsif ($type eq 'arrayconst') { } |
|
|
0 |
0 |
elsif ($type eq 'hashconst') { } |
|
634
|
0 |
0 |
defined $n ? : |
|
658
|
0 |
4 |
if $spoof |
|
661
|
0 |
4 |
if $arg ne $pos and $arg ne $neg |
|
664
|
3 |
1 |
$arg eq $pos ? : |
|
674
|
0 |
2 |
unless ref $value eq 'CODE' |
|
682
|
0 |
2 |
if $spoof |
|
684
|
0 |
2 |
ref $args eq 'ARRAY' ? : |
|
686
|
0 |
2 |
unless ($result) |
|
704
|
0 |
0 |
if $spoof |
|
710
|
0 |
0 |
if ($@) |
|
717
|
0 |
0 |
unless ($result) |
|
741
|
4 |
5 |
if ($n == 1) { } |
|
743
|
0 |
4 |
unless ref $value eq 'SCALAR' |
|
745
|
0 |
4 |
if $spoof |
|
747
|
0 |
4 |
unless &check_value($$value, $arg, $type, $n) |
|
751
|
0 |
5 |
unless ref $value eq 'ARRAY' |
|
753
|
0 |
5 |
if $spoof |
|
755
|
0 |
5 |
if (scalar @$value != $n) |
|
764
|
0 |
10 |
unless &check_value($val, $arg, $type, $n) |
|
783
|
0 |
6 |
unless defined $new_arglist |
|
799
|
36 |
0 |
unless $$opt_desc[1] eq 'section' |
|
802
|
6 |
0 |
if $Getopt::Tabular::HelpOption |
|
806
|
0 |
6 |
if ($spoof) |
|
816
|
0 |
0 |
unless $type eq 'call' or $type eq 'eval' |
|
817
|
0 |
0 |
unless defined $spoof |
|
819
|
0 |
0 |
if $type eq 'call' and ref $spoof ne 'CODE' |
|
821
|
0 |
0 |
if $type eq 'eval' and ref $spoof |
|
838
|
0 |
27 |
if (defined $Getopt::Tabular::OptionTerminator and $arg eq $Getopt::Tabular::OptionTerminator) |
|
847
|
12 |
15 |
unless ($arg =~ /^($option_re)/o) |
|
858
|
0 |
15 |
unless ($arg) |
|
860
|
0 |
0 |
if defined $Getopt::Tabular::Usage |
|
868
|
0 |
15 |
if ($arg eq $Getopt::Tabular::HelpOption) |
|
880
|
0 |
15 |
unless defined $pos |
|
888
|
15 |
0 |
if (defined $handler and ref $handler eq 'CODE') { } |
|
890
|
0 |
15 |
unless (&$handler($arg, \@tmp_arglist, $opt_desc, $spoof)) |
|
892
|
0 |
0 |
if defined $Getopt::Tabular::Usage |