| line |
true |
false |
branch |
|
52
|
1 |
4 |
if ref $class eq 'Acme::Nyaa::Ja' |
|
68
|
0 |
3 |
unless ref $self |
|
84
|
0 |
304 |
if $ref1 ne '' and $ref1 ne 'SCALAR' |
|
85
|
304 |
0 |
$ref1 eq 'SCALAR' ? : |
|
86
|
0 |
304 |
unless length $text |
|
92
|
0 |
304 |
if $@ |
|
95
|
209 |
95 |
unless $neko =~ /$Separator/ |
|
105
|
0 |
360 |
if $e =~ /\A$RxPeriod\s*\z/ |
|
106
|
0 |
360 |
if $e =~ /$RxEndOfList\s*\z/ |
|
107
|
4 |
356 |
if grep {$e =~ /\A$_\s*/;} @$DoNotBecomeCat |
|
108
|
2 |
354 |
if grep {$e =~ /$_$RxPeriod?\z/;} @$HiraganaTails |
|
109
|
72 |
282 |
if grep {$e =~ /$_$RxPeriod?\z/;} @$KatakanaTails |
|
110
|
0 |
282 |
if grep {$e =~ /$_$RxEndOfSentence?\s*\z/;} @$HiraganaTails |
|
111
|
31 |
251 |
if grep {$e =~ /$_$RxEndOfSentence?\s*\z/;} @$KatakanaTails |
|
112
|
4 |
247 |
if grep {$e =~ /$_\s*\z/;} @$FightingCats |
|
116
|
0 |
247 |
if $e =~ /\A[\x20-\x7E]+\z/ |
|
119
|
73 |
174 |
unless $e =~ /[\p{InHiragana}\p{InKatakana}]+/ |
|
123
|
0 |
174 |
if $e =~ /[\x{306d}\x{30cd}]$RxPeriod?\s*\z/ |
|
127
|
2 |
172 |
if ($e =~ /\x{306a}$RxPeriod?\s*\z/) { } |
|
|
0 |
172 |
elsif ($e =~ /\x{30ca}$RxPeriod?\s*\z/) { } |
|
|
106 |
66 |
elsif ($e =~ /\p{InHiragana}$RxPeriod\s*\z/) { } |
|
|
0 |
66 |
elsif ($e =~ /\p{InKatakana}$RxPeriod\s*\z/) { } |
|
|
0 |
66 |
elsif ($e =~ /\p{InCJKUnifiedIdeographs}$RxPeriod?\s*\z/) { } |
|
152
|
14 |
52 |
if ($e =~ /($RxEndOfSentence)\s*\z/) { } |
|
|
8 |
44 |
elsif ($e =~ /$RxConversation\s*\z/) { } |
|
156
|
0 |
14 |
if ($e =~ /\p{InKatakana}$RxEndOfSentence\s*\z/) { } |
|
|
14 |
0 |
elsif ($e =~ /\p{InHiragana}$RxEndOfSentence\s*\z/) { } |
|
175
|
5 |
3 |
if ($e =~ /\A(.*${RxConversation}[ ]*)($RxConversation.*)\s*\z/) |
|
178
|
2 |
3 |
if int(rand 10) % 2 |
|
181
|
5 |
3 |
if int(rand 10) % 2 |
|
187
|
0 |
44 |
if ($e =~ /[0-9\p{Latin}]\s*\z/) { } |
|
|
0 |
44 |
elsif ($e =~ /\p{InKatakana}\s*\z/) { } |
|
203
|
0 |
174 |
if $haschomped |
|
207
|
284 |
20 |
unless $flag |
|
220
|
0 |
284 |
if $ref1 ne '' and $ref1 ne 'SCALAR' |
|
221
|
284 |
0 |
$ref1 eq 'SCALAR' ? : |
|
222
|
0 |
284 |
unless length $text |
|
229
|
0 |
284 |
if $@ |
|
238
|
524 |
44 |
unless $neko =~ /$e/ |
|
252
|
284 |
0 |
unless $flag |
|
259
|
0 |
4 |
ref $argv ? : |
|
283
|
0 |
2 |
unless $ref1 =~ /(?:ARRAY|SCALAR)/ |
|
284
|
1 |
1 |
$ref1 eq 'ARRAY' ? : |
|
285
|
0 |
2 |
unless scalar @$data |
|
290
|
21 |
0 |
if ($r =~ /[^\x20-\x7e]+/) { } |
|
296
|
0 |
21 |
if $@ |
|
304
|
42 |
0 |
unless $nekobuffer =~ /$e/ |
|
308
|
20 |
1 |
if (length $nekobuffer < $buffersize) |
|
310
|
19 |
1 |
if ($nekobuffer =~ /(.+$RxPeriod)(.*)/msx) { } |
|
320
|
20 |
0 |
if ($nekobuffer =~ /[^\x20-\x7e]+/) |
|
325
|
0 |
20 |
if ($noun) |
|
327
|
0 |
0 |
if $nekobuffer =~ /[^\x20-\x7e]+/ |
|
328
|
0 |
0 |
if $leftbuffer =~ /[^\x20-\x7e]+/ |
|
336
|
1 |
1 |
if length $nekobuffer |
|
346
|
1218 |
1 |
$ref1 eq 'SCALAR' ? : |
|
347
|
0 |
1219 |
unless length $text |
|
354
|
90 |
1129 |
unless ref $code |
|
358
|
0 |
1129 |
if $name =~ /\A(.+) or .+/ |
|
360
|
1129 |
0 |
if ($name ne 'ascii') |