| line |
true |
false |
branch |
|
123
|
4 |
0 |
if $args{'Export'} |
|
134
|
8 |
0 |
if defined $_ |
|
135
|
0 |
4 |
if exists $Loc{$pkg} |
|
137
|
2 |
2 |
unless eval {
do {
require Locale::Maketext::Lexicon;
1
}
} |
|
138
|
2 |
0 |
unless $Locale::Maketext::Lexicon::VERSION > 0.2 |
|
139
|
0 |
0 |
unless eval {
do {
require File::Spec;
1
}
} |
|
141
|
0 |
0 |
unless my $path = $args{'Path'} || $class->auto_path($args{'Class'}) |
|
146
|
0 |
0 |
if $encoding |
|
150
|
0 |
0 |
unless eval "\n\tpackage $pkg;\n\tuse base 'Locale::Maketext';\n\tLocale::Maketext::Lexicon->import({\n\t 'i-default' => [ 'Auto' ],\n\t '*'\t=> [ Gettext => \$pattern ],\n\t _decode => \$decode,\n\t _encoding => \$encoding,\n\t});\n\t*${pkg}::Lexicon = \\%${pkg}::i_default::Lexicon;\n\t*tense = sub { \$_[1] . ((\$_[2] eq 'present') ? 'ing' : 'ed') }\n\t unless defined &tense;\n\n\t1;\n " |
|
166
|
0 |
0 |
unless my $lh = eval {
do {
$pkg->get_handle
}
} |
|
168
|
0 |
0 |
if ($style eq 'maketext') { } |
|
|
0 |
0 |
elsif ($style eq 'gettext') { } |
|
187
|
0 |
0 |
$2 ? : |
|
|
0 |
0 |
$1 ? : |
|
206
|
1 |
3 |
if ($style eq 'maketext') { } |
|
|
3 |
0 |
elsif ($style eq 'gettext') { } |
|
250
|
2 |
0 |
$3 eq 'present' ? : |
|
|
2 |
1 |
$digit > 1 ? : |
|
|
3 |
0 |
$1 eq 'quant' ? : |
|
|
2 |
3 |
$1 eq 'tense' ? : |
|
|
5 |
4 |
$1 ? : |
|
268
|
0 |
0 |
/\A(\s*)%([1-9]\d*|\*)(\s*)\z/ ? : |
|
276
|
0 |
0 |
unless my $path = $INC{$calldir . '.pm'} |
|
279
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
286
|
0 |
0 |
if -d $path |
|
291
|
0 |
0 |
if -d "$inc/$path" |