blib/lib/Encode/Mapper.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 16 | 31 | 51.6 |
line | l | !l | condition |
---|---|---|---|
83 | 20 | 11 | $opt eq ':others' and $opt{'others'} = sub { shift(); } |
84 | 9 | 11 | $opt eq ':silent' and $opt{'silent'} = 1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
40 | 0 | 0 | 1833 | defined $_[0] and $_[0] ne '' |
49 | 278 | 4 | 0 | ref \$_[1] ne 'SCALAR' and not UNIVERSAL::isa($_[1], 'CODE') |
58 | 0 | 0 | 1551 | defined $_[1][1] and length $_[1][1] < length $_[0] |
96 | 17 | 0 | 1 | defined $opt{'complement'} and UNIVERSAL::isa($opt{'complement'}, 'ARRAY') |
102 | 15 | 0 | 3 | defined $opt{'override'} and UNIVERSAL::isa($opt{'override'}, 'ARRAY') |
108 | 5 | 13 | 0 | defined $opt{'others'} and not $option{'silent'} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
54 | 1547 | 4 | 0 | ref \$_[1][0] eq 'SCALAR' or UNIVERSAL::isa($_[1][0], 'CODE') |
501 | 0 | 0 | 0 | not UNIVERSAL::isa($encoder, 'ARRAY') or grep {not $_->isa($cls) if defined $_;} @{$encoder;} |
542 | 0 | 0 | 0 | not UNIVERSAL::isa($decoder, 'ARRAY') or grep {not $_->isa($cls) if defined $_;} @{$decoder;} |