| line |
true |
false |
branch |
|
73
|
0 |
8 |
if defined $ops and not defined $self->{'ops'} |
|
77
|
3 |
5 |
if (defined $logdir) |
|
92
|
0 |
8 |
unless defined $self->{'ops'} |
|
96
|
0 |
28 |
if (defined $self->{$key}) |
|
144
|
0 |
20 |
if $^S |
|
167
|
30 |
0 |
if (not defined $canal) { } |
|
169
|
0 |
30 |
if (defined $Script::Toolbox::Util{'_logFH'}) |
|
172
|
0 |
0 |
if (ref $canal eq 'IO::File') { } |
|
|
0 |
0 |
elsif ($canal eq 'STDERR') { } |
|
|
0 |
0 |
elsif ($canal eq 'STDOUT') { } |
|
|
0 |
0 |
elsif ($canal eq 'syslog') { } |
|
190
|
0 |
0 |
unless ($canal =~ /^\s*>/ or $canal =~ /^\s*[|]/) |
|
194
|
0 |
0 |
if (not defined $fh) { } |
|
225
|
0 |
10 |
if (ref $self ne 'Script::Toolbox') |
|
246
|
0 |
0 |
if ref $param ne 'HASH' |
|
247
|
0 |
0 |
if ref $param->{'data'} eq 'HASH' |
|
248
|
0 |
0 |
if ref $param->{'data'} eq 'ARRAY' |
|
250
|
0 |
0 |
unless (defined $param->{'data'}[0]) |
|
272
|
0 |
0 |
if (ref $param eq 'HASH') |
|
277
|
0 |
0 |
if &_isTitleHead($param) |
|
278
|
0 |
0 |
if &_isCSV($param, $separator) |
|
301
|
0 |
0 |
if ref \$param->[0] eq 'SCALAR' and ref $param->[1] eq 'ARRAY' |
|
334
|
0 |
0 |
if ref $param ne 'ARRAY' |
|
336
|
0 |
0 |
unless defined $separator |
|
337
|
0 |
0 |
if $param->[0] =~ /$separator/ |
|
351
|
0 |
0 |
unless defined $separator |
|
377
|
0 |
10 |
unless defined $self->{'ops'} |
|
391
|
0 |
0 |
if (not defined $newContent) { } |
|
|
0 |
0 |
elsif (ref $newContent eq 'CODE') { } |
|
395
|
0 |
0 |
if defined $f |
|
409
|
4 |
10 |
if (not defined $newContent) { } |
|
|
1 |
9 |
elsif (ref $newContent eq 'CODE') { } |
|
427
|
2 |
0 |
if (not defined $newContent) { } |
|
|
0 |
0 |
elsif (ref $newContent eq 'CODE') { } |
|
443
|
0 |
0 |
unless defined $fieldSep |
|
466
|
0 |
0 |
if (ref $newContent->{$k} ne 'HASH') |
|
484
|
1 |
1 |
unless defined $$fieldSep |
|
494
|
0 |
2 |
if ($scalar_code) { } |
|
|
1 |
1 |
elsif ($scalar_undef) { } |
|
|
0 |
1 |
elsif ($code_scalar) { } |
|
|
1 |
0 |
elsif ($code_undef) { } |
|
515
|
1 |
1 |
if (defined $callBack) { } |
|
537
|
0 |
8 |
unless defined $k |
|
538
|
2 |
6 |
if (ref $P->{$k} eq 'HASH') |
|
542
|
4 |
2 |
if (@v == 1) { } |
|
563
|
0 |
9 |
if (ref $file eq 'IO::File') { } |
|
569
|
7 |
2 |
unless $file =~ /^[|>]/ |
|
572
|
6 |
3 |
if (ref $newContent eq '') { } |
|
|
1 |
2 |
elsif (&_simpleArray($newContent)) { } |
|
|
1 |
1 |
elsif (&_simpleHash($newContent)) { } |
|
588
|
0 |
3 |
defined $recSep ? : |
|
600
|
0 |
3 |
defined $recSep ? : |
|
601
|
0 |
3 |
defined $fieldSep ? : |
|
613
|
0 |
2 |
if ref $content ne 'HASH' |
|
616
|
1 |
4 |
if ref $content->{$key} ne '' |
|
627
|
2 |
1 |
if ref $content ne 'ARRAY' |
|
630
|
0 |
3 |
if ref $line ne '' |
|
645
|
0 |
5 |
if (ref $file eq 'IO::File') { } |
|
653
|
1 |
4 |
if defined $callBack |
|
654
|
0 |
5 |
unless defined $rf |
|
668
|
1 |
1 |
if (ref $file eq 'IO::File') { } |
|
684
|
0 |
6 |
unless defined $d |
|
689
|
28 |
26 |
if &_toSkip($_, $searchPattern) |
|
702
|
12 |
42 |
if $line =~ /^[.]{1,2}$/ |
|
703
|
20 |
22 |
unless defined $pattern |
|
705
|
4 |
18 |
if ($pattern =~ /^\s*!/) { } |
|
708
|
2 |
2 |
if $line =~ /$pattern/ |
|
710
|
14 |
4 |
if not $line =~ /$pattern/ |
|
728
|
0 |
1 |
unless defined $self->{'ops'} |
|
729
|
0 |
1 |
unless ref $self->{'ops'} eq 'Script::Toolbox::Util::Opt' |
|
741
|
25 |
57 |
if ($x =~ /Script::Toolbox/) |
|
743
|
25 |
0 |
if $_[0]->isa('Script::Toolbox::Util') |
|
763
|
0 |
0 |
if /^__RC__/ |
|
764
|
0 |
0 |
if /^\s*$/ |
|
770
|
0 |
0 |
if $rc == 0 |
|
786
|
1 |
2 |
unless $rtime =~ /^[0-9]+$/ |
|
816
|
2 |
5 |
defined $opt->{'offset'} ? : |
|
819
|
3 |
4 |
if $opt->{'diff'} |
|
825
|
2 |
2 |
if defined $opt->{'format'} |
|
837
|
0 |
0 |
unless defined $head |
|
845
|
0 |
0 |
unless defined $foot |
|
859
|
0 |
0 |
unless $op->{'label'} |
|
860
|
0 |
0 |
if $o == $curr |
|
878
|
0 |
0 |
if defined $l->{'header'} |
|
879
|
0 |
0 |
if defined $l->{'footer'} |
|
880
|
0 |
0 |
if defined $l->{'label'} |
|
882
|
0 |
0 |
$head eq '' ? : |
|
883
|
0 |
0 |
$foot eq '' ? : |
|
914
|
0 |
0 |
unless $op->{'label'} |
|
916
|
0 |
0 |
if (defined $def) { } |
|
937
|
0 |
0 |
if ref $line ne 'HASH' |
|
938
|
0 |
0 |
unless defined $line - {'label'} |
|
939
|
0 |
0 |
unless defined $line - {'value'} |
|
953
|
0 |
0 |
if ref $opts->{$l} ne '' |
|
957
|
0 |
0 |
unless defined $frame |
|
959
|
0 |
0 |
if defined $frame->{'header'} |
|
960
|
0 |
0 |
if defined $frame->{'footer'} |
|
977
|
0 |
0 |
unless defined $frame |
|
978
|
0 |
0 |
if defined $frame->{'header'} |
|
979
|
0 |
0 |
if defined $frame->{'footer'} |
|
993
|
0 |
0 |
if ref $opts eq 'ARRAY' |
|
994
|
0 |
0 |
if ref $opts eq 'HASH' |
|
995
|
0 |
0 |
if ref $opts eq '' |
|
1015
|
0 |
0 |
if defined $_->{'value'} |
|
1029
|
0 |
0 |
if (defined $_->{'value'} and defined $_->{'label'}) |
|
1051
|
0 |
0 |
if $o == 0 |
|
1053
|
0 |
0 |
if $format eq 'ARRAY' |
|
1054
|
0 |
0 |
if $format eq 'SCALAR' |
|
1055
|
0 |
0 |
if $format eq 'HASH' |
|
1097
|
0 |
0 |
unless defined $menue->[$o]{'jump'} |
|
1100
|
0 |
0 |
defined $menue->[$o]{'argv'} ? : |
|
1102
|
0 |
0 |
if (ref $call eq 'CODE') |
|
1116
|
0 |
0 |
unless defined $op->{'label'} |
|
1118
|
0 |
0 |
$len < $l ? : |
|
1131
|
0 |
0 |
if defined $op->{'value'} |
|
1132
|
0 |
0 |
defined $def ? : |
|
1162
|
0 |
0 |
if $$o =~ s/^\n$/0/ |
|
1163
|
0 |
0 |
if $$o * 10 > $maxNum |
|
1171
|
0 |
0 |
if $o =~ /^\n$/ |
|
1172
|
0 |
0 |
if $o <= $maxNum |
|
1187
|
0 |
0 |
if &_invalid($o, $maxNum) |
|
1188
|
0 |
0 |
if &_unique(\$o, $maxNum) |
|
1190
|
0 |
0 |
if ($maxNum > 9) |
|
1193
|
0 |
0 |
if $oo eq "\n" |
|
1196
|
0 |
0 |
if $o <= $maxNum and $o > -1 |
|
1214
|
0 |
0 |
if $key =~ /$patt/ |
|
1215
|
0 |
0 |
if $key =~ /\n/ |
|
1231
|
0 |
0 |
unless defined $opts->[$o]{'value'} |
|
1234
|
0 |
0 |
defined $op->{'value'} ? : |
|
1237
|
0 |
0 |
if defined $op->{'readOnly'} |
|
1242
|
0 |
0 |
if $resp eq '' |