| blib/lib/Lingua/String.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 10 | 18 | 55.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 75 | 8 | 0 | 1 | scalar @_ == 1 and my $lang = _get_language() |
| 154 | 2 | 0 | 0 | defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^C\./ || $ENV{'LANG'} eq 'C' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 64 | 0 | 9 | 1 | ref $proto || $proto |
| 119 | 0 | 1 | 1 | $lang ||= $self->_get_language |
| 154 | 0 | 0 | 0 | $ENV{'LANG'} =~ /^C\./ || $ENV{'LANG'} eq 'C' |
| 187 | 4 | 14 | 1 | $params{'lang'} || $self->_get_language |