Condition Coverage

blib/lib/Test/Regexp.pm
Criterion Covered Total %
condition 47 57 82.4


and 3 conditions

line !l l&&!r l&&r condition
62 245 1 1 length $str > 55 and not $arg{'full_text'}
73 20 0 83 $pretty eq $val and not $val =~ /'/
117 6 138 0 $upgrade and $upgrade == 2 || !utf8::is_utf8($subject) && $subject =~ /[\x80-\xFF]/
3 135 0 $downgrade and $downgrade == 2 || utf8::is_utf8($subject) && $subject =~ /[\x80-\xFF]/ && !($subject =~ /[^\x00-\xFF]/)
232 34 48 74 $match and defined $pattern
274 34 70 52 $match and defined $keep_pattern
402 122 1 33 not $match and defined $pattern
412 122 33 1 not $match and defined $keep_pattern

or 2 conditions

line l !l condition
32 7 11 $arg{'import'} //= ['match', 'no_match']
98 0 24 $Test::Builder::deepness // 1
175 52 92 $arg{'captures'} // []
176 78 66 ($arg{'comment'} // $name) // ''
177 6 138 $arg{'utf8_upgrade'} // 1
178 6 138 $arg{'utf8_downgrade'} // 1
179 104 40 $arg{'match'} // 1
211 37 107 $numbered_captures ||= []
212 17 127 $named_captures ||= {}

or 3 conditions

line l !l&&r !l&&!r condition
117 0 0 138 $upgrade == 2 || !utf8::is_utf8($subject) && $subject =~ /[\x80-\xFF]/
0 0 135 $downgrade == 2 || utf8::is_utf8($subject) && $subject =~ /[\x80-\xFF]/ && !($subject =~ /[^\x00-\xFF]/)
176 8 52 84 $arg{'comment'} // $name
409 29 1 3 !$r || $subject ne $&
420 1 0 0 !$r || $subject ne $&