| line |
true |
false |
branch |
|
17
|
2 |
3 |
if ref $class eq 'Acme::Nyaa' |
|
42
|
3 |
2 |
if $lang eq $$self{'language'} |
|
43
|
1 |
1 |
unless $lang =~ /\A[a-zA-Z]{2}\z/ |
|
47
|
0 |
1 |
unless length $referclass |
|
48
|
1 |
0 |
if $referclass eq $self->subclass |
|
51
|
0 |
0 |
unless ref $nekoobject eq $referclass |
|
69
|
0 |
0 |
unless ref $neko |
|
78
|
0 |
0 |
unless ref $neko |
|
87
|
0 |
0 |
unless ref $neko |
|
96
|
0 |
0 |
unless ref $neko |
|
108
|
0 |
4 |
unless length $lang |
|
109
|
0 |
4 |
if grep {lc $lang eq $_;} @$list |
|
116
|
3 |
1 |
unless $@ |
|
117
|
1 |
0 |
if grep {'ja' eq $_;} @$list |
|
131
|
0 |
5 |
unless length $name |
|
135
|
0 |
2 |
unless ref $e eq $name |
|
138
|
2 |
3 |
if ref $this |
|
139
|
0 |
3 |
unless $new1 |
|
157
|
0 |
609 |
ref $argv ? : |
|
158
|
0 |
609 |
unless length $text |
|
161
|
221 |
388 |
if $$self{'utf8flag'} |
|
162
|
0 |
388 |
unless $$self{'encoding'} |
|
164
|
0 |
388 |
unless ($$self{'encoding'} =~ /(?:ascii|utf8)/) |
|
168
|
388 |
0 |
unless utf8::is_utf8($text) |
|
177
|
0 |
570 |
ref $argv ? : |
|
178
|
0 |
570 |
unless $$self{'encoding'} |
|
179
|
0 |
570 |
unless length $text |
|
181
|
570 |
0 |
if utf8::is_utf8($text) |
|
182
|
0 |
570 |
if ($$self{'encoding'} ne 'utf8') |