| line |
true |
false |
branch |
|
20
|
0 |
2 |
@_ == 1 ? : |
|
|
20 |
2 |
@_ == 1 && (!ref($_[0]) || ref $_[0] eq 'Regexp') ? : |
|
24
|
0 |
22 |
if (ref $class) |
|
27
|
0 |
0 |
if ($self{'regex'} == $class->{'regex'} xor $self{'regex_parse_tree'} == $class->{'regex_parse_tree'}) |
|
28
|
0 |
0 |
if $self{'regex_parse_tree'} == $class->{'regex_parse_tree'} |
|
29
|
0 |
0 |
if $self{'regex'} == $class->{'regex'} |
|
34
|
0 |
22 |
unless defined $self{'regex'} |
|
35
|
0 |
22 |
unless ref $self{'regex'} eq "Regexp" |
|
38
|
3 |
19 |
if $self{'regex_parse_tree'}->flags->{'a'} |
|
40
|
0 |
22 |
if defined $self{'prefix'} |
|
41
|
0 |
22 |
if defined $self{'suffix'} |
|
59
|
205 |
0 |
unless $_[0]{'max_repetition'} |
|
63
|
0 |
0 |
if (@_ > 1) |
|
70
|
0 |
0 |
if (@_ > 1) |
|
79
|
23 |
182 |
ref $_[0] eq 'HASH' ? : |
|
86
|
0 |
205 |
unless $self->regex_parse_tree->generate($out) and !$out->next_req || grep(($_ eq ''), @{$out->next_req;}) |
|
90
|
186 |
19 |
unless defined $prefix or defined $suffix |
|
95
|
19 |
0 |
if ($prefix and !$out->start || $out->start eq 'LF') |
|
97
|
1 |
18 |
if $out->start |
|
102
|
18 |
1 |
if ($suffix and !$out->next_req || grep(($_ eq "\n"), @{$out->next_req;}) && !$out->require->[1]) |
|
103
|
2 |
16 |
if $out->next_req |
|
118
|
0 |
0 |
&Scalar::Util::blessed($p) && $p->isa('Mock::Data::Charset') ? : |
|
136
|
51 |
169 |
if (/\G \( (\?)? /cgx) |
|
138
|
40 |
11 |
if (defined $1) |
|
140
|
40 |
0 |
if (/\G \^ ( \w* ) : /cgx) { } |
|
|
0 |
0 |
elsif ($] < 5.02 and /\G (\w*)-\w* : /cgx) { } |
|
152
|
0 |
51 |
unless /\G \) /cgx |
|
156
|
56 |
164 |
if (/\G ( [|)] ) /cgx) { } |
|
|
25 |
139 |
elsif (/\G ( \[ | \\w | \\W | \\s | \\S | \\d | \\D | \\N | \\Z | \. | \^ | \$ ) /cgx) { } |
|
|
24 |
115 |
elsif (/\G ( \? | \* \?? | \+ \?? | \{ ([0-9]+)? (,)? ([0-9]+)? \} ) /cgx) { } |
|
|
0 |
115 |
elsif ($flags->{'x'} and /\G ( \s | [#].* ) /cgx) { } |
|
|
75 |
40 |
elsif (/\G (\\)? (.) /cgsx) { } |
|
158
|
51 |
5 |
if ($1 eq ")") |
|
169
|
5 |
20 |
if ($1 eq '[') { } |
|
|
5 |
15 |
elsif (ord $1 == 92) { } |
|
|
2 |
13 |
elsif ($1 eq '.') { } |
|
|
7 |
6 |
elsif ($1 eq '$') { } |
|
|
6 |
0 |
elsif ($1 eq '^') { } |
|
175
|
1 |
4 |
if ($1 eq '\\Z') { } |
|
183
|
0 |
2 |
$flags->{'s'} ? : |
|
186
|
4 |
3 |
$flags->{'m'} ? : |
|
189
|
4 |
2 |
$flags->{'m'} ? : |
|
195
|
1 |
23 |
if ($1 eq '?') { } |
|
|
5 |
18 |
elsif (ord $1 == 42) { } |
|
|
13 |
5 |
elsif (ord $1 == 43) { } |
|
205
|
3 |
2 |
$3 ? : |
|
208
|
0 |
24 |
if (not @$expr) { } |
|
|
6 |
18 |
elsif (not ref $expr->[-1]) { } |
|
214
|
2 |
4 |
if (length $expr->[-1] > 1) { } |
|
230
|
0 |
75 |
if $_regex_syntax_unsupported{$1 or ""}{$2} |
|
232
|
5 |
70 |
if ($1 and defined(my $equiv = $_parse_regex_backslash{$2})) { } |
|
233
|
3 |
2 |
ref $equiv ? : |
|
237
|
3 |
72 |
if ($flags->{'i'} and uc $ch ne lc $ch) { } |
|
|
22 |
50 |
elsif (@$expr and not ref $expr->[-1]) { } |
|
251
|
3 |
0 |
if @$expr |
|
|
35 |
53 |
@$expr > 1 || !ref($expr->[0]) ? : |
|
|
3 |
88 |
@or ? : |
|
270
|
9 |
5 |
@_ > 1 ? : |
|
307
|
24 |
412 |
if (@_ > 1) |
|
312
|
0 |
24 |
if (my $rep = $_[0]{'repetition'}) { } |
|
314
|
0 |
0 |
defined $rep->[$_] && defined $val->[$_] ? : |
|
323
|
0 |
0 |
$_[0]{'repetition'} ? : |
|
326
|
0 |
0 |
$_[0]{'repetition'} ? : |
|
331
|
83 |
246 |
if (my $rep = $self->repetition) { } |
|
334
|
281 |
68 |
$_ > $min ? : |
|
338
|
20 |
349 |
ref $_ ? : |
|
340
|
329 |
20 |
if $success |
|
342
|
20 |
0 |
if ($origin) |
|
352
|
166 |
258 |
ref $_ ? : |
|
|
8 |
416 |
unless ref $_ ? $_->generate($out) : $out->append($_) |
|
370
|
30 |
0 |
if (my $rep = $self->{'repetition'}) |
|
382
|
119 |
0 |
ref $pick ? : |
|
|
111 |
8 |
if ref $pick ? $pick->generate($out) : $out->append($pick) |
|
388
|
8 |
0 |
ref $_ ? : |
|
|
8 |
0 |
if ref $_ ? $_->generate($out) : $out->append($_) |
|
391
|
0 |
0 |
if ($_ > $min) |
|
412
|
14 |
0 |
if (ref $self->{'pattern'} eq "HASH") |
|
413
|
3 |
11 |
if $self->{'flags'}{'a'} |
|
422
|
0 |
76 |
if (my $req = $out->next_req) |
|
425
|
0 |
0 |
unless (ref $_) |
|
427
|
0 |
0 |
if length $_ == 0 and $self->min_repetition == 0 |
|
428
|
0 |
0 |
if length $_ == 1 and $self->pattern->has_member($_) or length $_ > 1 and not grep((!$self->pattern->has_member($_)), split(//, $_, 0)) |
|
452
|
44 |
39 |
if ($self->{'start'}) |
|
455
|
8 |
17 |
unless length $out->str == 0 or $self->{'start'} eq "LF" and substr($out->str, -1) eq "\n" |
|
458
|
19 |
17 |
if length $out->str == 0 and not $out->start |
|
460
|
39 |
36 |
if ($self->{'end'}) |
|
463
|
39 |
0 |
unless $self->{'end'} eq 1 |
|
465
|
19 |
20 |
unless $self->{'end'} eq "LF" |
|
489
|
19 |
458 |
if @_ > 1 |
|
493
|
40 |
149 |
unless defined $rep |
|
494
|
26 |
123 |
if defined $rep->[1] |
|
497
|
123 |
0 |
if ord $range == 43 |
|
500
|
0 |
0 |
$range > 0 ? : |
|
504
|
58 |
3 |
if @_ > 1 |
|
512
|
20 |
663 |
if (my $req = $self->next_req) |
|
517
|
40 |
0 |
if (not ref $_) { } |
|
518
|
0 |
40 |
if (length $_ and $content eq $_) |
|
538
|
20 |
380 |
$req ? : |
|
544
|
0 |
28 |
unless \$self->{'str'} == $origin->[0] |