lib/App/MtAws/Exceptions.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 13 | 17 | 76.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
108 | 12 | 238 | 0 | ref $e eq ref {} and $e->{'MTEXCEPTION'} |
119 | 1 | 7 | 6 | defined get_exception($e)->{'code'} and get_exception($e)->{'code'} eq $code |
155 | 0 | 4 | 3 | defined $where && length $where |
line | l | !l | condition |
---|---|---|---|
50 | 12 | 2 | eval { do { require I18N::Langinfo; my $enc = &I18N::Langinfo::langinfo(&I18N::Langinfo::CODESET()); $enc = 'hp-roman8' if $^O eq 'hpux' and $enc eq 'roman8'; defined &find_encoding($enc) ? $enc : undef } } || 'MT_BINARY' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
50 | 18 | 14 | 0 | $_errno_encoding ||= eval { do { require I18N::Langinfo; my $enc = &I18N::Langinfo::langinfo(&I18N::Langinfo::CODESET()); $enc = 'hp-roman8' if $^O eq 'hpux' and $enc eq 'roman8'; defined &find_encoding($enc) ? $enc : undef } } || 'MT_BINARY' |
119 | 8 | 0 | 14 | not defined $code or defined get_exception($e)->{'code'} and get_exception($e)->{'code'} eq $code |