Condition Coverage

blib/lib/Fred/Fish/DBUG/ON.pm
Criterion Covered Total %
condition 142 260 54.6


and 2 conditions

line l !l condition
1701 59 333 0 do { defined $fish_return if $max != -1 } && do { my $all = $mask{'-1'}; my $sep = ''; my $cnt = 0; my $i = 500; foreach $_ (0 .. $max) { my $val; if ($all or $mask{$_}) { $val = '<******>'; ++$cnt; } elsif (not defined $args[$_]) { $val = ''; } elsif (ref $args[$_] eq 'CODE') { my $f = &sub_fullname($args[$_]); $f = $1 if $dbug_global_vars{'strip'} and $f =~ /::([^:]+)$/; $val = '\\&' . $f; } elsif ($dbug_global_vars{'no_addresses'} and ref $args[$_] ne '') { $val = sprintf('%s(%03d)', ref $args[$_], ++$i); } else { $val = $args[$_]; } ; $ret .= $sep . '[' . $val . ']'; $sep = ', '; } ; if ($cnt != $dbug_global_vars{'mask_return_count'}) { _dbug_print_pkg_tag(7, 'Expected %d masked return values and found %d.', $dbug_global_vars{'mask_return_count'}, $cnt); $dbug_global_vars{'mask_return_count'} = $cnt; } }

and 3 conditions

line !l l&&!r l&&r condition
252 0 43 0 $] >= "5.008001" and $Fred::Fish::DBUG::ON::Config{'useithreads'}
255 0 0 0 $] == "5.01" and $Fred::Fish::DBUG::ON::Config{'ccname'} eq "gcc"
0 0 0 $] == "5.01" and $Fred::Fish::DBUG::ON::Config{'ccname'} eq "gcc" and $Fred::Fish::DBUG::ON::Config{'gccversion'}
257 0 0 0 $parts[0] == 4 and $parts[1] >= 8
390 43 0 0 $dbug_global_vars{'keep'} and $dbug_global_vars{'file'}
427 0 0 0 $parent == 1 and $dbug_global_vars{'limit'} == 1
428 0 0 0 $parent == 0 and $dbug_global_vars{'limit'} == -1
553 935 0 0 $tid != -1 and $fid != -1
650 0 446 1 defined $_[0] and $_[0] eq __PACKAGE__
676 392 0 55 $dbug_enter_flg and $by ne $dbug_global_vars{'main'}
743 0 239 655 $func and ref $func eq "CODE"
918 36 0 1 $opts->{'delay'} and $opts->{'delay'} =~ /(^\d+$)|(\d+\.\d+$)/
960 37 0 0 exists $opts->{'autoflush'} and not $opts->{'autoflush'}
1033 62 0 0 $k eq "chmod" and defined $opts->{'chmod'}
1065 37 0 0 $opts->{'before'} and $#lst != -1
1132 8 0 0 $dbug_global_vars{'strip'} and $aka =~ /::([^:]+)$/
1138 954 2 71 $dbug_global_vars{'who_called'} and $func ne $dbug_global_vars{'main'}
1164 1027 0 0 $dbug_global_vars{'strip'} and $func =~ /::([^:]+)$/
1247 84 0 0 $dbug_global_vars{'strip'} and $f =~ /::([^:]+)$/
1299 990 0 0 $dbug_global_vars{'strip'} and $block_name =~ /::([^:]+)$/
1374 12640 0 2964 $tag =~ /^\d+$/ and defined $dbug_levels[$tag]
1448 0 403 105 $_[0] and $_[0] =~ /^::[^:]/
1493 0 0 0 $dbug_global_vars{'strip'} and $f =~ /::([^:]+)$/
1502 4 0 0 $dbug_global_vars{'strip'} and $f =~ /::([^:]+)$/
1558 0 5736 22 $flg and $dbug_global_vars{'delay'}
1604 385 0 1 exists $func->{'HMASK'} and $max > 0
1664 0 85 0 defined $func and $func eq $called_by_special || $func eq $called_by_special2
1880 34 8 4 $scalar eq "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==" and exists $dbug_global_vars{'functions'}[-1]{'AMASK'}
1941 0 2 2 $scalar eq "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==" and not $last_masked
0 0 2 $scalar eq "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==" and $last_masked
2098 1515 98 6718 $eval_cnt == 0 and $b->{'EVAL'} == 0
2101 1526 87 0 exists $b->{'MULTI'} and $b->{'MULTI'} ne _indent_multi(1)
2377 45 0 39 $level and $level =~ /^\d+$/
2378 0 7 32 1 <= $level and $level <= 8
2420 0 0 0 defined $lvl and $lvl =~ /^\d+$/
2518 0 0 21 $level and $level =~ /^\d+$/
2519 0 4 17 1 <= $level and $level <= 8
2610 1333 777 18211 $dbug_global_vars{'on'} and not $dbug_global_vars{'pause'}
2110 0 18211 $dbug_global_vars{'on'} and not $dbug_global_vars{'pause'} and _limit_thread_check()
2731 0 0 0 $dbug_global_vars{'screen'} and _filter_on($level)
2852 14 0 5 $called_by and $called_by =~ /^(.+)::([^:]+)$/
2870 0 92 0 $use_warn and not $func
2932 9 0 0 $cnt == -1 and defined $hint
2946 17 0 0 $cnt == -1 and defined $hint
2972 0 0 0 $dbug_global_vars{'on'} and exists $dbug_global_vars{$key}

or 2 conditions

line l !l condition
529 211 14801 shift() || 0
577 9006 0 shift() || ''
595 10805 0 shift() || 0
653 341 106 shift() || 0
654 55 392 shift() || 0
655 2 445 shift() || 0
1366 15604 0 shift() || ''
1403 698 0 $dbug_global_vars{'pkg_lvl'} || 99
1406 202 0 $dbug_global_vars{'pkg_lvl'} || 99
1978 0 39 shift() || 0
2084 151 9989 shift() || 0
2370 84 0 $dbug_global_vars{'filter'} || 8
2393 36 2 (caller 1)[3] || ''
2445 0 0 (caller 1)[3] || ''
2846 19 0 (caller $call_ind)[3] || ''
2848 43 14 (caller ++$call_ind)[3] || ''

or 3 conditions

line l !l&&r !l&&!r condition
257 0 0 0 $parts[0] > 4 or $parts[0] == 4 and $parts[1] >= 8
281 0 0 0 $^O eq "MSWin32" or $^O eq "NetWare"
483 0 0 0 not defined $ln or $ln eq $term
0 0 0 not defined $ln or $ln eq $term or $ln =~ /^\s*$/
665 446 1 0 (caller $ind_by)[3] || $dbug_global_vars{'main'}
668 834 118 447 $by =~ /^$pkg/ or $by eq $eval_caller
670 910 42 0 (caller ++$ind_by)[3] || $dbug_global_vars{'main'}
679 89 7 55 $by =~ /^$pkg/ or $by eq $eval_caller
682 71 25 0 (caller ++$ind_by)[3] || $dbug_global_vars{'main'}
935 0 0 0 $file == \*STDERR or $file == \*STDOUT
1113 989 38 0 (caller 1)[3] || $dbug_global_vars{'main'}
1140 3 0 68 $eval_flg or $func =~ /::END$/
3 7 61 $eval_flg or $func =~ /::END$/ or $func =~ /::BEGIN$/
7 1 60 $eval_flg or $func =~ /::END$/ or $func =~ /::BEGIN$/ or $func =~ /::UNITCHECK$/
8 1 59 $eval_flg or $func =~ /::END$/ or $func =~ /::BEGIN$/ or $func =~ /::UNITCHECK$/ or $func =~ /::CHECK$/
2 1 58 $eval_flg or $func =~ /::END$/ or $func =~ /::BEGIN$/ or $func =~ /::UNITCHECK$/ or $func =~ /::CHECK$/ or $func =~ /::INIT$/
2 2 56 $eval_flg or $func =~ /::END$/ or $func =~ /::BEGIN$/ or $func =~ /::UNITCHECK$/ or $func =~ /::CHECK$/ or $func =~ /::INIT$/ or $func =~ /::DESTROY$/
1 1 54 $func =~ /::try [{][.]{3}[}]\s*$/ or $func =~ /::catch [{][.]{3}[}]\s*$/
2 1 53 $func =~ /::try [{][.]{3}[}]\s*$/ or $func =~ /::catch [{][.]{3}[}]\s*$/ or $func =~ /::finally [{][.]{3}[}]\s*$/
1386 14 6 10280 $utag eq "STDOUT" or $utag eq "STDERR"
72 72 10136 $utag eq "WARN" or $utag eq "WARNING"
68 68 10000 $utag eq "DEBUG" or $utag eq "DBUG"
1621 15 35 902 $all or $mask{$_}
1664 12 0 73 $func eq $called_by_special || $func eq $called_by_special2
1669 0 0 21 exists $block->{'AMASK'} || exists $block->{'HMASK'}
2385 38 0 0 $dbug_levels[$old_lvl] || $old_lvl
2386 38 0 0 $dbug_levels[$new_lvl] || $new_lvl
2422 0 0 0 1 <= $lvl or $lvl <= 8
2519 17 2 2 1 <= $level and $level <= 8 or $level == 99
2847 57 0 19 $called_by =~ /^$pkg_name/ or $called_by eq "(eval)"