| line |
true |
false |
branch |
|
28
|
0 |
0 |
wantarray ? : |
|
34
|
51 |
1302 |
if ($pat =~ s/^ (\^|\\[AG]|) \(\? ([a-zA-Z]+) \) /$1/x) |
|
43
|
19 |
1334 |
if ($mod =~ /o/ and defined $Cache{$pat}{$mod}) |
|
47
|
2 |
1327 |
$s ? : |
|
|
5 |
1329 |
$m ? : |
|
|
0 |
1334 |
$m && $s ? : |
|
52
|
0 |
2378 |
if (s/^(\(\?[p?]?\{)//) |
|
56
|
0 |
0 |
if (s/^(\x5C[\x00-\xFC])//) |
|
60
|
0 |
0 |
if (s/^([^\{\}\\]+)//) |
|
64
|
0 |
0 |
if (s/^\{//) |
|
69
|
0 |
0 |
if (s/^\}//) |
|
76
|
0 |
0 |
if (s/^\)//) |
|
83
|
874 |
1504 |
if (s/^\x5B(\^?)//) |
|
86
|
103 |
771 |
$not ? : |
|
90
|
4 |
1500 |
if (s/^\\([.*+?^$|\\()\[\]\{\}])//) |
|
94
|
0 |
1500 |
if (s[^\\?(['"/])][]) |
|
98
|
11 |
1489 |
if ($x and s/^\s+//) |
|
101
|
5 |
1484 |
if (s/^\.//) |
|
102
|
0 |
5 |
$s ? : |
|
105
|
598 |
886 |
if (s/^\^//) |
|
109
|
37 |
849 |
if (s/^\$//) |
|
113
|
8 |
841 |
if (s/^\\z//) |
|
117
|
46 |
795 |
if (s/^\\([dDwWsSCjJ])//) |
|
121
|
227 |
568 |
if (s/^\\([pP])//) |
|
123
|
227 |
0 |
if (defined $ShiftJIS::Regexp::Re{$key}) { } |
|
130
|
1 |
567 |
if (s/^\\([R])//) |
|
132
|
1 |
0 |
if (defined $ShiftJIS::Regexp::Re{$key}) { } |
|
139
|
1 |
566 |
if (s/^\\([0-7][0-7][0-7]?)//) |
|
143
|
3 |
563 |
if (s/^\\0//) |
|
147
|
72 |
491 |
if (s/^\\c([\x00-\x7F])//) |
|
151
|
1 |
490 |
if (s/^\\x([0-9A-Fa-f][0-9A-Fa-f])//) |
|
155
|
2 |
488 |
if (s/^\\x\{([0-9A-Fa-f][0-9A-Fa-f])([0-9A-Fa-f][0-9A-Fa-f])\}//) |
|
159
|
9 |
479 |
if (s/^\\([A-Za-z])//) |
|
163
|
2 |
477 |
if (s/^(\(\?[a-z\-\s]+)//) |
|
167
|
1 |
476 |
if (s/^\\([1-9])//) |
|
168
|
0 |
1 |
$h ? : |
|
171
|
306 |
170 |
if (s/^([\x21-\x40\x5B\x5D-\x60\x7B-\x7E])//) |
|
175
|
0 |
170 |
if ($_ eq '\\') |
|
178
|
170 |
0 |
if (s/^\\?($ShiftJIS::Regexp::Char)//o) |
|
185
|
1 |
1333 |
$mod =~ /o/ ? : |
|
195
|
1 |
75 |
if (s/^\\\\//) |
|
199
|
0 |
75 |
if (s[^\\?/][]) |
|
203
|
24 |
51 |
if (s/^\$([1-8])//) |
|
207
|
4 |
47 |
if (s/^\$\{([1-8])\}//) |
|
211
|
0 |
47 |
if (s/^\\([0-7][0-7][0-7])//) |
|
215
|
0 |
47 |
if (s/^\\([0-7][0-7])//) |
|
219
|
0 |
47 |
if (s/^\\x([0-9A-Fa-f][0-9A-Fa-f])//) |
|
223
|
2 |
45 |
if (s/^\\x\{([0-9A-Fa-f][0-9A-Fa-f])([0-9A-Fa-f][0-9A-Fa-f])\}//) |
|
227
|
0 |
45 |
if (s/^\\0//) |
|
231
|
1 |
44 |
if (s/^\\([A-Za-z])//) |
|
235
|
15 |
29 |
if (s/^\\?([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])//) |
|
239
|
29 |
0 |
if (s/^\\?([\x00-\x7F\xA1-\xDF])//) |
|
253
|
0 |
98 |
if ($mod =~ /g/) { } |
|
254
|
0 |
0 |
$mod =~ /z/ || '' =~ /$pat/ ? : |
|
267
|
32 |
16 |
if ($mod =~ /g/) { } |
|
268
|
3 |
29 |
$mod =~ /z/ || '' =~ /$pat/ ? : |
|
269
|
0 |
32 |
if (ref $str) { } |
|
276
|
12 |
4 |
if (ref $str) { } |
|
293
|
44 |
44 |
wantarray ? : |
|
|
88 |
88 |
if $str eq '' |
|
294
|
2 |
2 |
wantarray ? : |
|
|
4 |
84 |
if $lim == 1 |
|
297
|
76 |
8 |
if ($lim > 1) { } |
|
300
|
76 |
684 |
if @ret >= $lim - 1 |
|
305
|
4 |
4 |
if $lim < 0 |
|
316
|
14 |
0 |
wantarray ? : |
|
|
14 |
33 |
if $str eq '' |
|
319
|
20 |
13 |
if (0 < $lim) { } |
|
337
|
23 |
145 |
unless defined $thing |
|
339
|
2 |
143 |
'ARRAY' eq ref $thing ? : |
|
343
|
88 |
57 |
if $pat eq '' |
|
344
|
7 |
0 |
wantarray ? : |
|
|
7 |
50 |
if $str eq '' |
|
345
|
7 |
0 |
wantarray ? : |
|
|
7 |
43 |
if $lim == 1 |
|
350
|
0 |
136 |
if ($mat[0] eq '' and $mat[1] eq '') { } |
|
356
|
136 |
0 |
if (@mat) |
|
362
|
6 |
130 |
unless length $str |
|
363
|
30 |
100 |
if $lim > 1 and $cnt >= $lim - 1 |
|
365
|
3 |
3 |
if $str ne '' or $lim < 0 or $cnt < $lim |
|
366
|
10 |
33 |
if ($lim == 0) |