| line |
true |
false |
branch |
|
61
|
0 |
1 |
unless my $file = locate("$id/$version/$lang.yml") |
|
71
|
0 |
1 |
unless $code =~ /\Q$$self{'Head'}\E([\x00-\xff]+)\Q$$self{'Tail'}\E/ |
|
76
|
0 |
1 |
unless $code =~ s/[\x00-\xff]*?^$$self{'Begin'}/_/m |
|
81
|
0 |
34 |
unless $chunk =~ /^(\!?\w+)\b/ |
|
85
|
33 |
5 |
if (exists $$self{'_'}{$head}) |
|
91
|
2 |
31 |
if not $chunk or $chunk =~ /^[\>\(]/ |
|
96
|
47 |
21 |
if $self->tokenize($sec, \$chunk, \$out) |
|
97
|
21 |
0 |
if $self->tokenize($$self{'_'}{''}, \$chunk, \$out) |
|
119
|
0 |
0 |
unless my $secref = $$self{'_'}{$sec} |
|
120
|
0 |
0 |
if $sec eq '_' |
|
129
|
0 |
0 |
$code eq '!' ? : |
|
|
0 |
0 |
index($code, $sec) > -1 ? : |
|
152
|
0 |
0 |
unless my $sym = shift() |
|
154
|
0 |
0 |
if substr($sym, 0, 1) eq '+' |
|
155
|
0 |
0 |
if substr($sym, 0, 1) eq '-' |
|
156
|
0 |
0 |
if $sym eq '' |
|
164
|
41 |
906 |
if $key eq '_' or not $key |
|
166
|
0 |
906 |
if ($key =~ m[/(.+)/]) { } |
|
|
68 |
838 |
elsif ($$chunk =~ s/^\Q$key\E//) { } |
|
167
|
0 |
0 |
if ($$chunk =~ s/^$1//) |
|
188
|
1 |
0 |
unless (-e $file) |
|
190
|
0 |
2 |
if -e ($file = join('/', $inc, $_[0])) |
|
191
|
1 |
1 |
if -e ($file = join('/', $inc, $path, $_[0])) |
|
195
|
1 |
0 |
-e $file ? : |