Branch Coverage

blib/lib/Debug/ShowStuff.pm

Criterion	Covered	Total	%
branch	0	386	0.0

line	true	false	branch
235	0	0	if defined $_[$i]
460	0	0	if (@_)
464	0	0	if (defined $ENV{'SHOWSTUFF'} and not $ENV{'SHOWSTUFF'})
524	0	0	unless showstuff()
530	0	0	unless (@args)
539	0	0	if (inweb()) { }
563	0	0	if ismem($fh)
580	0	0	if ($indent_level) { }
709	0	0	unless showstuff()
712	0	0	if (inweb()) { }
746	0	0	if (@_ == 1 and not defined $_[0])
751	0	0	if (ref $_[0]) { }
760	0	0	if (ref $_[0])
763	0	0	if (defined $opts{'title'}) { }
786	0	0	if (default($opts{'sort'}, 1))
794	0	0	if ($linecut)
807	0	0	if (defined $id_prefix)
817	0	0	if (defined $id_prefix)
825	0	0	unless (@keys)
835	0	0	if ismem($fh)
856	0	0	if (ref $_[0])
860	0	0	if (defined $opts{'title'})
864	0	0	unless (defined $divider)
873	0	0	if (@_ == 1 and not defined $_[0])
879	0	0	if ismem($fh)
884	0	0	if (ref $_[0]) { }
888	0	0	if (defined $opts{'showfields'})
889	0	0	if (ref $opts{'showfields'}) { }
902	0	0	if (not keys %myhash) { }
915	0	0	if (default($opts{'sort'}, 1))
924	0	0	if (%showfields and not exists $showfields{$key})
930	0	0	if ($skipempty and not defined $value && $value =~ /\S/s)
940	0	0	if ($linecut)
941	0	0	if (defined $value and $value =~ s/[\r\n].*//s)
956	0	0	if ismem($fh)
986	0	0	unless showstuff()
992	0	0	if (@arr == 1 and UNIVERSAL::isa($arr[0], 'ARRAY'))
998	0	0	if (inweb()) { }
1006	0	0	if (defined $el) { }
1007	0	0	if ($el =~ /\S/) { }
1045	0	0	unless ($firstdone)
1057	0	0	if ismem($fh)
1079	0	0	unless showstuff()
1084	0	0	if (@arr == 1 and UNIVERSAL::isa($arr[0], 'ARRAY'))
1090	0	0	if (inweb()) { }
1126	0	0	unless ($firstdone)
1133	0	0	if ismem($fh)
1158	0	0	unless showstuff()
1167	0	0	if (inweb()) { }
1188	0	0	if (@arr) { }
1217	0	0	if ismem($fh)
1269	0	0	unless showstuff()
1278	0	0	if (defined $opts{'skip'})
1298	0	0	unless (@keys)
1315	0	0	if (exists $skip{$key})
1318	0	0	if ($skipempty and @vals <= 1)
1321	0	0	unless (defined $val and $val =~ /\S/)
1330	0	0	if (@vals > 1) { }
1356	0	0	if ismem($fh)
1441	0	0	unless showstuff()
1463	0	0	if (inweb())
1466	0	0	unless ($indent)
1469	0	0	if ($type eq 'HASH') { }
	0	0	elsif ($type eq 'ARRAY') { }
1471	0	0	if ($opts{'indent'} and $opts{'indent'} > 1 and $opts{'maxhash'} and keys %{$ref;} > $opts{'maxhash'}) { }
1477	0	0	$count > 1 ? :
1484	0	0	if ($opts{'labelself'})
1492	0	0	if exists $skip{$n}
1496	0	0	if (ref $v) { }
1497	0	0	$opts{'depth'} ? :
	0	0	if ($opts{'depth'} ? $opts{'depth'} >= $indentnum : 1) { }
1498	0	0	if ($opts{'done'}{$v}) { }
1525	0	0	if ($opts{'maxarr'} and @{$ref;} > $opts{'maxarr'}) { }
1528	0	0	@{$ref;} > 1 ? :
1535	0	0	if (ref $v) { }
1536	0	0	$opts{'depth'} ? :
	0	0	if ($opts{'depth'} ? $opts{'depth'} >= $indentnum : 1) { }
1537	0	0	if ($opts{'done'}{$v}) { }
1542	0	0	if ($firstdone) { }
1567	0	0	unless ($indent)
1570	0	0	if (inweb())
1573	0	0	if ismem($fh)
1593	0	0	if ($always_void)
1598	0	0	if (defined $wa) { }
1655	0	0	if (length $key > $max)
1677	0	0	if (ref $arg) { }
	0	0	elsif (defined $arg) { }
1682	0	0	if wantarray
1730	0	0	unless showstuff()
1735	0	0	if (@_ == 1) { }
1744	0	0	if (inweb()) { }
1747	0	0	if (defined $title) { }
1777	0	0	if ($opts{'vspace'})
1782	0	0	if (defined $title) { }
1884	0	0	unless showstuff()
1886	0	0	unless (inweb())
1893	0	0	if (not @_) { }
	0	0	elsif (@_ == 1 and not defined $_[0]) { }
1909	0	0	if ismem($fh)
1954	0	0	if (defined $str[0]) { }
1960	0	0	if (inweb('strict', 1)) { }
2052	0	0	if ($response eq 'y') { }
	0	0	elsif ($response eq 'n') { }
2076	0	0	if (wantarray)
2173	0	0	unless ($opts{'strict'})
2174	0	0	if (defined $Debug::ShowStuff::forceweb)
2214	0	0	unless (defined wantarray)
2224	0	0	if (ref $path) { }
2233	0	0	if ($opts{'append'}) { }
2297	0	0	if (ref $outname) { }
	0	0	elsif (lc $outname eq 'stdout') { }
	0	0	elsif (lc $outname eq 'stderr') { }
	0	0	elsif (lc $outname eq 'separateprint') { }
2341	0	0	unless defined $_[0]
2368	0	0	if (-e $path)
2373	0	0	if (not defined wantarray) { }
2397	0	0	if (ref $val)
2398	0	0	if (my $func = overload::Method($val, '""'))
2402	0	0	if (defined $val) { }
2403	0	0	if ($val eq '')
2437	0	0	if (UNIVERSAL::isa($vals[0], 'HASH')) { }
2444	0	0	if (&Scalar::Util::tainted($val)) { }
2460	0	0	if (&Scalar::Util::tainted($val)) { }
2488	0	0	unless showstuff()
2490	0	0	if (inweb()) { }
2545	0	0	if (defined $params_org)
2546	0	0	if (UNIVERSAL::isa($params_org, 'ARRAY')) { }
2559	0	0	if ($row) { }
2586	0	0	if (UNIVERSAL::isa($sth, 'DBI::db'))
2592	0	0	unless ($sql)
2596	0	0	if ($opts{'params'})
2597	0	0	if (UNIVERSAL::isa($opts{'params'}, 'ARRAY')) { }
2605	0	0	if $DBI::err
2609	0	0	if $DBI::err
2640	0	0	unless ($$sth{'Active'})
2642	0	0	if $DBI::err
2668	0	0	if (hascontent($opts{'title'}))
2719	0	0	if ($opts{'headers'})
2730	0	0	if (defined $opts{'title'})
2742	0	0	unless ($first_row_done)
2745	0	0	unless (exists $field_names{$field_name})
2781	0	0	if ($$format{'align'}) { }
2786	0	0	if (defined $value) { }
2787	0	0	if ($value eq '') { }
2795	0	0	if ($$format{'pre'})
2816	0	0	if ($first_row_done) { }
2890	0	0	if (ref $class)
2969	0	0	if (@_ == 1) { }
2975	0	0	if (inweb()) { }
3012	0	0	if (hascontent($opts{'title'}))
3046	0	0	unless showstuff()
3055	0	0	if (defined $opts{'title'}) { }
3098	0	0	if ($opts{'die'})
3126	0	0	if (defined $last_sub) { }
3148	0	0	if ($frames[-1][2] eq 'dietrace')
3191	0	0	if (not defined $opts{'html'} and $ENV{'REQUEST_URI'})
3195	0	0	if ($opts{'html'})
3196	0	0	unless defined $opts{'flushtostderr'}
3197	0	0	unless defined $opts{'stderrfirst'}
3201	0	0	exists $opts{'stderrfirst'} ? :
3210	0	0	unless open SAVEERR, '>&STDERR'
3216	0	0	if ($opts{'stderrfirst'})
3219	0	0	unless open SAVESTD, '>&STDOUT'
3244	0	0	unless (@{$$self{'stderrdata'}{'str'};})
3248	0	0	if ($$self{'flushtostderr'})
3252	0	0	if ($$self{'html'}) { }
3298	0	0	unless untie *STDERR
3302	0	0	unless open STDERR, '>&SAVEERR'
3304	0	0	if ($@)
3308	0	0	if ($$self{'stdoutdata'})
3310	0	0	unless untie *STDOUT
3313	0	0	unless open STDOUT, '>&SAVESTD'
3315	0	0	if ($@)
3326	0	0	if ($$self{'stderrfirst'}) { }
3331	0	0	if ($$self{'html'})
3352	0	0	if (length $stdout and not $stdout =~ /[\r\n]$/)
3407	0	0	if ($$self{'croakonerr'})
3475	0	0	if ($global)
3478	0	0	if (UNIVERSAL::isa($global, 'FileHandle'))
3481	0	0	if ($global == $$self{'fh'})
3522	0	0	if (defined $opts{'title'}) { }
3549	0	0	if ($$self{'bottom_space'})
3552	0	0	if ($Debug::ShowStuff::indent_level > 0)
3600	0	0	if ($opts{'init_title'})
3601	0	0	if (defined $$timer{'title'}) { }
3640	0	0	if ($duration == 1) { }
3646	0	0	if (defined $$timer{'title'}) { }
3689	0	0	if (not $$timer{'silence'})
3769	0	0	unless (defined $path)
3778	0	0	if ($opts{'new'})
3779	0	0	unless 'FileHandle'->new("> $path")
3859	0	0	unless $out = 'FileHandle'->new(">> $$handle{'path'}")
3863	0	0	unless flock $out, 2