| line |
true |
false |
branch |
|
61
|
0 |
0 |
if (exists $ENV{'LC_CTYPE'}) { } |
|
|
0 |
0 |
elsif (exists $ENV{'LC_ALL'}) { } |
|
|
0 |
0 |
elsif (exists $ENV{'LANG'}) { } |
|
68
|
0 |
0 |
if (defined $lc and $lc =~ /^([a-z]{2}_[A-Z]{2})
(?:\.(?i:([a-z_\-_0-9]+)))?
(?:@(?i:[a-z_0-9]+))?$/ox) { } |
|
72
|
0 |
0 |
if (defined $2 and lc $2 eq 'utf8' or lc $2 eq 'utf-8') { } |
|
|
0 |
0 |
elsif (not defined $2 and $1 eq 'en_US') { } |
|
97
|
0 |
0 |
unless $line |
|
103
|
0 |
0 |
if ($cmd eq $_) |
|
119
|
0 |
0 |
$_[1] ? : |
|
121
|
0 |
0 |
if ($uid == $<) { } |
|
|
0 |
0 |
elsif ($gid == $() { } |
|
123
|
0 |
0 |
unless ($mode & 448) >> 6 & $perm |
|
127
|
0 |
0 |
unless ($mode & 56) >> 3 & $perm |
|
131
|
0 |
0 |
unless $mode & 7 & $perm |
|
138
|
0 |
0 |
if (defined $fileref) { } |
|
144
|
0 |
0 |
unless my $file = shift() |
|
145
|
0 |
0 |
unless -e $file |
|
146
|
0 |
0 |
unless __permission($file) |
|
147
|
0 |
0 |
unless __permission($file, 1) |
|
157
|
0 |
0 |
if (defined $fileref) { } |
|
158
|
0 |
0 |
if ($fileref->save) { } |
|
171
|
0 |
0 |
if defined $fileref |
|
176
|
0 |
0 |
if (defined $fileref) { } |
|
177
|
0 |
0 |
$ENCODING[$encoding] eq 'UTF8' ? : |
|
185
|
0 |
0 |
if (defined $fileref) { } |
|
186
|
0 |
0 |
$ENCODING[$encoding] eq 'UTF8' ? : |
|
194
|
0 |
0 |
if (defined $fileref) { } |
|
195
|
0 |
0 |
$ENCODING[$encoding] eq 'UTF8' ? : |
|
203
|
0 |
0 |
if (defined $fileref) { } |
|
204
|
0 |
0 |
$ENCODING[$encoding] eq 'UTF8' ? : |
|
212
|
0 |
0 |
if (defined $fileref) { } |
|
213
|
0 |
0 |
$ENCODING[$encoding] eq 'UTF8' ? : |
|
221
|
0 |
0 |
if (defined $fileref) { } |
|
229
|
0 |
0 |
if (defined $fileref) { } |
|
237
|
0 |
0 |
$_[0] ? : |
|
240
|
0 |
0 |
if (defined $fileref) { } |
|
249
|
0 |
0 |
$_[0] ? : |
|
252
|
0 |
0 |
if (defined $fileref) { } |
|
261
|
0 |
0 |
$_[0] ? : |
|
264
|
0 |
0 |
if (defined $fileref) { } |
|
273
|
0 |
0 |
$_[0] ? : |
|
276
|
0 |
0 |
if (defined $fileref) { } |
|
285
|
0 |
0 |
$_[0] ? : |
|
288
|
0 |
0 |
if (defined $fileref) { } |
|
297
|
0 |
0 |
unless my $year = shift() |
|
298
|
0 |
0 |
if (defined $fileref) { } |
|
307
|
0 |
0 |
unless my $track = shift() |
|
308
|
0 |
0 |
if (defined $fileref) { } |
|
317
|
0 |
0 |
if (defined $fileref) { } |
|
325
|
0 |
0 |
if (defined $fileref) { } |
|
333
|
0 |
0 |
if (defined $fileref) { } |
|
341
|
0 |
0 |
if (defined $fileref) { } |
|
351
|
0 |
0 |
unless -d $dir |
|
352
|
0 |
0 |
unless chdir($dir) |
|
356
|
0 |
0 |
if (defined $fileref) { } |
|
370
|
0 |
0 |
unless opendir CWD, '.' |
|
372
|
0 |
0 |
unless closedir CWD |