| line |
true |
false |
branch |
|
18
|
45 |
1 |
$_[0]->original ? : |
|
67
|
23 |
3 |
if (@_ == 1) { } |
|
76
|
0 |
0 |
unless $Attr{$key} |
|
92
|
26 |
48 |
unless $self->word_punctuation |
|
94
|
26 |
48 |
unless $self->wordish_rx |
|
99
|
26 |
48 |
unless $self->mixed_rx |
|
112
|
26 |
48 |
unless $self->mixed_threshold |
|
113
|
26 |
48 |
unless $self->uc_threshold |
|
119
|
0 |
88 |
unless $$self{'_mixedcase'} |
|
125
|
0 |
48 |
unless $$self{'_uppercase'} |
|
131
|
0 |
0 |
unless $$self{'_whitespace'} |
|
137
|
0 |
40 |
unless $$self{'_wc'} |
|
143
|
25 |
90 |
if @_ |
|
150
|
25 |
134 |
if (my $new = shift()) |
|
152
|
25 |
0 |
if $$self{'_original'} ne $new |
|
160
|
67 |
48 |
if $$self{'_parsed'} |
|
177
|
18 |
569 |
@mixed ? : |
|
178
|
18 |
569 |
if @mixed |
|
180
|
250 |
337 |
if $$token[0] |
|
181
|
250 |
337 |
if $$token[0] |
|
185
|
4 |
44 |
if ($uc_ratio > $self->uc_threshold) { } |
|
|
2 |
42 |
elsif ($mixed_ratio > $self->mixed_threshold) { } |
|
206
|
0 |
355 |
if $@ |
|
207
|
338 |
17 |
if $$self{'_lexer'} |
|
213
|
162 |
193 |
if $_[0] =~ s/\A($wordish)// |
|
214
|
159 |
34 |
if $_[0] =~ s/\A(.)//s |
|
222
|
107 |
48 |
if $$self{'_titlecase'} |
|
230
|
250 |
337 |
if ($$t[0]) { } |
|
232
|
2 |
248 |
if ($$t[2] and $self->allow_mixed) { } |
|
|
47 |
201 |
elsif ($$t[4]) { } |
|
|
70 |
131 |
elsif ($LC{lc $$t[1]}) { } |