Branch Coverage

blib/lib/Script/Toolbox/Util.pm

Criterion	Covered	Total	%
branch	76	292	26.0

line	true	false	branch
78	0	8	if defined $ops and not defined $self->{'ops'}
82	3	5	if (defined $logdir)
97	0	8	unless defined $self->{'ops'}
101	0	28	if (defined $self->{$key})
140	0	0	if defined $line and defined $file
151	0	0	if $^S
174	0	0	if (not defined $canal) { }
176	0	0	if (defined $Script::Toolbox::Util{'_logFH'})
179	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') { }
197	0	0	unless ($canal =~ /^\s*>/ or $canal =~ /^\s*[|]/)
201	0	0	if (not defined $fh) { }
232	0	10	if (ref $self ne 'Script::Toolbox')
253	0	0	if ref $param ne 'HASH'
254	0	0	if ref $param->{'data'} eq 'HASH'
255	0	0	if ref $param->{'data'} eq 'ARRAY'
257	0	0	unless (defined $param->{'data'}[0])
279	0	0	if (ref $param eq 'HASH')
284	0	0	if &_isTitleHead($param)
285	0	0	if &_isCSV($param, $separator)
308	0	0	if ref \$param->[0] eq 'SCALAR' and ref $param->[1] eq 'ARRAY'
341	0	0	if ref $param ne 'ARRAY'
343	0	0	unless defined $separator
344	0	0	if $param->[0] =~ /$separator/
358	0	0	unless defined $separator
384	0	10	unless defined $self->{'ops'}
398	0	0	if (not defined $newContent) { }
	0	0	elsif (ref $newContent eq 'CODE') { }
402	0	0	if defined $f
416	4	10	if (not defined $newContent) { }
	1	9	elsif (ref $newContent eq 'CODE') { }
434	2	0	if (not defined $newContent) { }
	0	0	elsif (ref $newContent eq 'CODE') { }
450	0	0	unless defined $fieldSep
473	0	0	if (ref $newContent->{$k} ne 'HASH')
491	1	1	unless defined $$fieldSep
501	0	2	if ($scalar_code) { }
	1	1	elsif ($scalar_undef) { }
	0	1	elsif ($code_scalar) { }
	1	0	elsif ($code_undef) { }
522	1	1	if (defined $callBack) { }
544	0	8	unless defined $k
545	2	6	if (ref $P->{$k} eq 'HASH')
549	4	2	if (@v == 1) { }
570	0	9	if (ref $file eq 'IO::File') { }
576	7	2	unless $file =~ /^[|>]/
579	6	3	if (ref $newContent eq '') { }
	1	2	elsif (&_simpleArray($newContent)) { }
	1	1	elsif (&_simpleHash($newContent)) { }
595	0	3	defined $recSep ? :
607	0	3	defined $recSep ? :
608	0	3	defined $fieldSep ? :
620	0	2	if ref $content ne 'HASH'
623	1	5	if ref $content->{$key} ne ''
634	2	1	if ref $content ne 'ARRAY'
637	0	3	if ref $line ne ''
652	0	5	if (ref $file eq 'IO::File') { }
660	1	4	if defined $callBack
661	0	5	unless defined $rf
675	1	1	if (ref $file eq 'IO::File') { }
691	0	7	unless defined $d
696	30	37	if &_toSkip($_, $searchPattern)
709	14	53	if $line =~ /^[.]{1,2}$/
710	31	22	unless defined $pattern
712	4	18	if ($pattern =~ /^\s*!/) { }
715	2	2	if $line =~ /$pattern/
717	14	4	if not $line =~ /$pattern/
735	0	1	unless defined $self->{'ops'}
736	0	1	unless ref $self->{'ops'} eq 'Script::Toolbox::Util::Opt'
748	26	28	if ($x =~ /Script::Toolbox/)
750	26	0	if $_[0]->isa('Script::Toolbox::Util')
770	0	0	if /^__RC__/
771	0	0	if /^\s*$/
777	0	0	if $rc == 0
793	1	2	unless $rtime =~ /^[0-9]+$/
823	2	5	defined $opt->{'offset'} ? :
826	3	4	if $opt->{'diff'}
832	2	2	if defined $opt->{'format'}
844	0	0	unless defined $head
852	0	0	unless defined $foot
866	0	0	unless $op->{'label'}
867	0	0	if $o == $curr
885	0	0	if defined $l->{'header'}
886	0	0	if defined $l->{'footer'}
887	0	0	if defined $l->{'label'}
889	0	0	$head eq '' ? :
890	0	0	$foot eq '' ? :
901	0	0	if (defined $def)
932	0	0	unless $op->{'label'}
957	0	0	if ref $line ne 'HASH'
958	0	0	unless defined $line - {'label'}
959	0	0	unless defined $line - {'value'}
973	0	0	if ref $opts->{$l} ne ''
977	0	0	unless defined $frame
979	0	0	if defined $frame->{'header'}
980	0	0	if defined $frame->{'footer'}
997	0	0	unless defined $frame
998	0	0	if defined $frame->{'header'}
999	0	0	if defined $frame->{'footer'}
1013	0	0	if ref $opts eq 'ARRAY'
1014	0	0	if ref $opts eq 'HASH'
1015	0	0	if ref $opts eq ''
1035	0	0	if defined $_->{'value'}
1049	0	0	if (defined $_->{'value'} and defined $_->{'label'})
1071	0	0	if $o == 0
1073	0	0	if $format eq 'ARRAY'
1074	0	0	if $format eq 'SCALAR'
1075	0	0	if $format eq 'HASH'
1124	0	0	unless defined $menu->[$o]{'jump'}
1127	0	0	defined $menu->[$o]{'argv'} ? :
1129	0	0	if (ref $call eq 'CODE')
1143	0	0	unless defined $op->{'label'}
1145	0	0	$len < $l ? :
1158	0	0	if defined $op->{'value'}
1160	0	0	defined $def ? :
	0	0	if ($op->{'readOnly'}) { }
1161	0	0	defined $def ? :
1191	0	0	if $$o =~ s/^\n$/0/
1192	0	0	if $$o * 10 > $maxNum
1200	0	0	if $o =~ /^\n$/
1201	0	0	if $o <= $maxNum
1216	0	0	if &_invalid($o, $maxNum)
1217	0	0	if &_unique(\$o, $maxNum)
1219	0	0	if ($maxNum > 9)
1222	0	0	if $oo eq "\n"
1225	0	0	if $o <= $maxNum and $o > -1
1243	0	0	if $key =~ /$patt/
1244	0	0	if $key =~ /\n/
1260	0	0	unless defined $opts->[$o]{'value'}
1263	0	0	defined $op->{'value'} ? :
1265	0	0	if $op->{'readOnly'}
1271	0	0	if $resp eq ''
1272	0	0	if defined $op->{'default'} and $resp eq ' '
1285	0	0	if ref $opt eq 'ARRAY'
1306	0	0	$x =~ /$defaults/ ? :
	0	0	if defined $defaults
1328	0	0	if defined $name
1338	0	0	if ref $m eq 'Script::Toolbox::Util::Menus'
1374	0	0	if @{$l;} > 0
1387	0	0	if $cl eq 'RETURN' and &_isOneSelected($m, $name)
1399	0	0	unless $x =~ /^TMP_[0-9]+/
1430	0	0	unless (defined $m->{'def'}{$menuName})
1434	0	0	if $radio
1436	0	0	if ($radio) { }