Condition Coverage

File:blib/lib/Data/Random/String/Matches.pm
Coverage:61.7%

line%coveragecondition
192100
Adec
00
11
$length || 10
213100
Adec
00
11
$max_attempts //= 1000
220100
ABdec
0X0
100
111
defined $str and $str =~ /^$regex$/
22533
ABdec
0X0
100
111
$ENV{'DEBUG_REGEX_GEN'} and $@
24633
ABdec
000
011
1X1
$regex_str =~ /\\w/ or $regex_str =~ /\[a-zA-Z0-9_\]/
25
ABCdec
0000
0011
01X1
1XX1
$regex_str =~ /\\d/ or $regex_str =~ /\[0-9\]/ or $regex_str =~ /\[\^[^\]]*[A-Za-z]/
33
ABdec
000
011
1X1
$regex_str =~ /\[A-Z\]/ or $regex_str =~ /\[A-Z[^\]]*\]/
33
ABdec
000
011
1X1
$regex_str =~ /\[a-z\]/ or $regex_str =~ /\[a-z[^\]]*\]/
316100
ABdec
0X0
100
111
defined $count and $count > 0
326100
ABdec
0X0
100
111
keys %seen < $count and $attempts < $max_attempts
41167
ABdec
0X0
100
111
$info->{'features'}{'has_backreferences'} and $pattern =~ /(\(\w+\)).*\\\d+/
474100
ABdec
000
011
1X1
$info->{'features'}{'has_lookahead'} or $info->{'features'}{'has_lookbehind'}
49267
ABdec
0X0
100
111
$info->{'features'}{'has_unicode'} and $pattern =~ /\\p\{L\}/
60975
ABCdec
00X0
0100
0111
1XX1
defined $1 or defined $2 and $2
69567
ABdec
000
011
1X1
$char =~ /[+*?]/ or $char eq "{"
70067
ABdec
0X0
100
111
$next eq "p" and substr($pattern, $i + 1, 1) eq "{"
67
ABdec
0X0
100
111
$next eq "k" and substr($pattern, $i + 1, 1) eq "<"
895100
Adec
00
11
$check_possessive //= 1
90167
ABdec
0X0
100
111
$check_possessive and $pos + 2 < length $pattern
90360
ABCdec
00X0
0100
0111
1X00
1X11
$next =~ /[+*?]/ || $next eq '}' and $after_next eq "+"
91475
ABCdec
0XX0
10X0
1100
1111
$check_possessive and $end + 1 < length $pattern and substr($pattern, $end + 1, 1) eq "+"
976100
ABdec
0X0
100
111
$char eq "|" and $depth == 0
100267
ABdec
0X0
100
111
$char eq "]" and substr($pattern, $i - 1, 1) ne "\\"
50
ABCdec
0XX0
1000
1011
11X1
$char eq "[" and $i == $start || substr($pattern, $i - 1, 1) ne '\\'
102067
ABdec
0X0
100
111
$char eq ")" and $prev ne "\\"
67
ABdec
0X0
100
111
$char eq "(" and $prev ne "\\"
104767
ABdec
0X0
100
111
$i + 2 < length $class and substr($class, $i + 1, 1) eq "-"
105033
ABdec
0X0
100
111
$next eq "p" and substr($class, $i + 1, 1) eq "{"
10940
ABdec
000
011
1X1
$prop eq "Nd" or $prop eq "Decimal_Number"
100
ABdec
000
011
1X1
$prop eq "L" or $prop eq "Letter"
67
ABdec
000
011
1X1
$prop eq "N" or $prop eq "Number"
67
ABdec
000
011
1X1
$prop eq "Lu" or $prop eq "Uppercase_Letter"
33
ABdec
000
011
1X1
$prop eq "Ll" or $prop eq "Lowercase_Letter"
0
ABdec
000
011
1X1
$prop eq "P" or $prop eq "Punctuation"
0
ABdec
000
011
1X1
$prop eq "S" or $prop eq "Symbol"
0
ABdec
000
011
1X1
$prop eq "Z" or $prop eq "Separator"