Condition Coverage

Char/Greek.pm
Criterion Covered Total %
condition 1 199 0.5


and 3 conditions

line !l l&&!r l&&r condition
309 0 0 0 eval ' use Fcntl qw(O_WRONLY O_APPEND O_CREAT); 1 ' and sysopen $fh, "$filename.e", &O_WRONLY | &O_APPEND | &O_CREAT
622 0 0 0 $Char::Greek::slash eq 'm//' and m[\G (/) ]cgox
0 0 0 $Char::Greek::slash eq 'm//' and /\G (\?) /cgox
1572 0 0 0 $2 == 5 and $3 ge '012'
1580 0 0 0 $2 == 5 and $3 >= 12
1911 0 0 0 grep /\A \{ \z/msx, @char and grep /\A \} \z/msx, @char
2608 0 0 0 $char[$i] eq '\\L' and $char[$i + 1] eq '\\u'
0 0 0 $char[$i] eq '\\U' and $char[$i + 1] eq '\\l'
2849 0 0 0 $char[$i] eq '\\L' and $char[$i + 1] eq '\\u'
0 0 0 $char[$i] eq '\\U' and $char[$i + 1] eq '\\l'
3056 0 0 0 $ope =~ /\A m? \z/mosx and $delimiter eq '?'
3128 0 0 0 $char[$i] eq '\\L' and $char[$i + 1] eq '\\u'
0 0 0 $char[$i] eq '\\U' and $char[$i + 1] eq '\\l'
3167 0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx
0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Egreek::uc($char[$i]) ne &Char::Egreek::fc($char[$i])
0 0 0 $i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx
3172 0 0 0 $i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3
0 0 0 $i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $q_char \z/mosx
0 0 0 $i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2
0 0 0 $i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $q_char \z/mosx
0 0 0 $i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1
0 0 0 $i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $q_char \z/mosx
3424 0 0 0 $ope =~ /\A m? \z/mosx and $delimiter eq '?'
3444 0 0 0 $ope =~ /\A m? \z/mosx and $delimiter eq '?'
3451 0 0 0 $ope =~ /\A m? \z/mosx and $delimiter eq '?'
3540 0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx
0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Egreek::uc($char[$i]) ne &Char::Egreek::fc($char[$i])
0 0 0 $i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx
3794 0 0 0 $char[$i] eq '\\L' and $char[$i + 1] eq '\\u'
0 0 0 $char[$i] eq '\\U' and $char[$i + 1] eq '\\l'
3833 0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx
0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Egreek::uc($char[$i]) ne &Char::Egreek::fc($char[$i])
0 0 0 $i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx
3838 0 0 0 $i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3
0 0 0 $i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $q_char \z/mosx
0 0 0 $i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2
0 0 0 $i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $q_char \z/mosx
0 0 0 $i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1
0 0 0 $i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $q_char \z/mosx
4185 0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx
0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Egreek::uc($char[$i]) ne &Char::Egreek::fc($char[$i])
0 0 0 $i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx
4573 0 0 0 $char[$i] eq '\\L' and $char[$i + 1] eq '\\u'
0 0 0 $char[$i] eq '\\U' and $char[$i + 1] eq '\\l'
4612 0 0 0 $char[$i] eq '^' and not $modifier =~ /m/mosx
0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx
0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Egreek::uc($char[$i]) ne &Char::Egreek::fc($char[$i])
0 0 0 $i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx
4617 0 0 0 $i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3
0 0 0 $i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $q_char \z/mosx
0 0 0 $i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2
0 0 0 $i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $q_char \z/mosx
0 0 0 $i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1
0 0 0 $i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $q_char \z/mosx
4930 0 0 0 $char[$i] eq '^' and not $modifier =~ /m/mosx
0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx
0 0 0 $ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Egreek::uc($char[$i]) ne &Char::Egreek::fc($char[$i])
0 0 0 $i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx

or 2 conditions

line l !l condition
2499 0 0 $modifier ||= ''
2999 0 0 $modifier ||= ''
3487 0 0 $modifier ||= ''
3662 0 0 $modifier ||= ''
4132 0 0 $modifier ||= ''
4334 0 0 $modifier ||= ''
4518 0 0 $modifier ||= ''
4897 0 0 $modifier ||= ''

or 3 conditions

line l !l&&r !l&&!r condition
300 0 0 177 $mtime_escape < $mtime_source or $mtime_escape < $mtime_filter
1572 0 0 0 $2 >= 6 or $2 == 5 and $3 ge '012'
1580 0 0 0 $2 >= 6 or $2 == 5 and $3 >= 12