blib/lib/Encode/Mapper.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 18 | 31 | 58.0 |
line | l | !l | condition |
---|---|---|---|
80 | 18 | 10 | $opt eq ':others' and $opt{'others'} = sub { shift(); } |
81 | 8 | 10 | $opt eq ':silent' and $opt{'silent'} = 1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
37 | 0 | 0 | 158302 | defined $_[0] and $_[0] ne '' |
46 | 27321 | 4 | 0 | ref \$_[1] ne 'SCALAR' and not UNIVERSAL::isa($_[1], 'CODE') |
55 | 0 | 0 | 130977 | defined $_[1][1] and length $_[1][1] < length $_[0] |
93 | 26 | 0 | 1 | defined $opt{'complement'} and UNIVERSAL::isa($opt{'complement'}, 'ARRAY') |
99 | 24 | 0 | 3 | defined $opt{'override'} and UNIVERSAL::isa($opt{'override'}, 'ARRAY') |
105 | 15 | 12 | 0 | defined $opt{'others'} and not $option{'silent'} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
51 | 130973 | 4 | 0 | ref \$_[1][0] eq 'SCALAR' or UNIVERSAL::isa($_[1][0], 'CODE') |
498 | 0 | 0 | 6 | not UNIVERSAL::isa($encoder, 'ARRAY') or grep {not $_->isa($cls) if defined $_;} @{$encoder;} |
539 | 0 | 0 | 3 | not UNIVERSAL::isa($decoder, 'ARRAY') or grep {not $_->isa($cls) if defined $_;} @{$decoder;} |