Condition Coverage

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

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$/u
22533
ABdec
0X0
100
111
$ENV{'DEBUG_REGEX_GEN'} and $@
24633
ABdec
000
011
1X1
$regex_str =~ /\\w/u or $regex_str =~ /\[a-zA-Z0-9_\]/u
25
ABCdec
0000
0011
01X1
1XX1
$regex_str =~ /\\d/u or $regex_str =~ /\[0-9\]/u or $regex_str =~ /\[\^[^\]]*[A-Za-z]/u
33
ABdec
000
011
1X1
$regex_str =~ /\[A-Z\]/u or $regex_str =~ /\[A-Z[^\]]*\]/u
33
ABdec
000
011
1X1
$regex_str =~ /\[a-z\]/u or $regex_str =~ /\[a-z[^\]]*\]/u
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+/u
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\}/u
60975
ABCdec
00X0
0100
0111
1XX1
defined $1 or defined $2 and $2
69567
ABdec
000
011
1X1
$char =~ /[+*?]/u 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 =~ /[+*?]/u || $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 "\\"
1053100
ABdec
0X0
100
111
$i + 2 < length $class and substr($class, $i + 1, 1) eq "-"
105767
ABdec
0X0
100
111
$next eq "p" and substr($class, $i + 1, 1) eq "{"
107833
ABdec
000
011
1X1
$end_char eq "\\" or $end_char eq "]"
11170
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"