Condition Coverage

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


and 3 conditions

line !l l&&!r l&&r condition
304 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
615 0 0 0 $Char::Greek::slash eq 'm//' and m[\G (/) ]cgox
0 0 0 $Char::Greek::slash eq 'm//' and /\G (\?) /cgox
1565 0 0 0 $2 == 5 and $3 ge '012'
1573 0 0 0 $2 == 5 and $3 >= 12
1898 0 0 0 grep /\A \{ \z/msx, @char and grep /\A \} \z/msx, @char
2589 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'
2830 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'
3037 0 0 0 $ope =~ /\A m? \z/mosx and $delimiter eq '?'
3109 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'
3148 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
3153 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
3405 0 0 0 $ope =~ /\A m? \z/mosx and $delimiter eq '?'
3425 0 0 0 $ope =~ /\A m? \z/mosx and $delimiter eq '?'
3432 0 0 0 $ope =~ /\A m? \z/mosx and $delimiter eq '?'
3521 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
3775 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'
3814 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
3819 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
4166 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
4554 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'
4593 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
4598 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
4911 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
2480 0 0 $modifier ||= ''
2980 0 0 $modifier ||= ''
3468 0 0 $modifier ||= ''
3643 0 0 $modifier ||= ''
4113 0 0 $modifier ||= ''
4315 0 0 $modifier ||= ''
4499 0 0 $modifier ||= ''
4878 0 0 $modifier ||= ''

or 3 conditions

line l !l&&r !l&&!r condition
295 0 0 176 $mtime_escape < $mtime_source or $mtime_escape < $mtime_filter
1565 0 0 0 $2 >= 6 or $2 == 5 and $3 ge '012'
1573 0 0 0 $2 >= 6 or $2 == 5 and $3 >= 12