Condition Coverage

blib/lib/Unicode/Lite.pm
Criterion Covered Total %
condition 21 109 19.2


and 3 conditions

line !l l&&!r l&&r condition
54 2 0 0 $$_[2] and not $MAPPING{$$_[0]}
60 1 0 0 $map == 1 and $DST eq 'latin1'
1 0 0 $map == 2 and $SRC eq 'latin1'
0 0 1 $map == 0 and $SRC eq 'latin1'
0 1 0 $map == 0 and $SRC eq 'latin1' and $DST eq 'latin1'
66 0 1 0 $map != 3 and $mod
67 0 1 0 $map != 3 and length $chr
68 1 0 0 $SRC eq $DST and $map != 3 || !($mod & 16)
74 0 0 1 $uni & 1 and $SRC ne 'utf16'
75 0 0 1 $uni & 2 and $DST ne 'utf16'
80 1 0 0 $map & 2 && !($utf & 1)
0 0 1 $uni & 1 and not $map & 2 && !($utf & 1)
83 0 1 0 $utf & 2 and $map & 1
84 0 0 1 $uni & 2 and $uni & 1
0 0 0 $utf & 2 and $map & 1
127 0 0 0 length $chr and $mod & 2
129 0 0 0 $mod & 1 and not $mod & 2
145 0 0 0 $dst[$_] and exists $src{$dst[$_]}
152 0 0 0 $mod & 4 and not %EQUIVAL
176 0 0 0 $mod & 4 and my $uni = &$find
180 0 0 0 ref $uni and push @eqv, [$_, $uni]
182 0 0 0 $dst{$uni} && $_ == $dst{$uni} - 128
0 0 0 not $dst{$uni} && $_ == $dst{$uni} - 128 and push @map, [$_, $uni]

or 2 conditions

line l !l condition
31 0 1 shift() || 0
0 1 shift() || ''

or 3 conditions

line l !l&&r !l&&!r condition
39 2 0 0 $_ =~ /^(?:utf16|utf8|utf7|ucs4|uchr|uhex|latin1)$/ or s/^(?:ucs2|unicode)$/utf16/o
2 0 0 $_ =~ /^(?:utf16|utf8|utf7|ucs4|uchr|uhex|latin1)$/ or s/^(?:ucs2|unicode)$/utf16/o or s/^iso-8859-1$/latin1/o
43 0 0 0 lc $REGISTR->id(uc $_) || croak("Character Set '${_}' not defined!")
55 0 0 0 $MAPPING{$$_[1]} || ($MAPPING{$$_[1]} = 'Unicode::Map'->new(uc $$_[1])) || croak("Can't create Unicode::Map object for '$$_[1]' charset!")
60 0 0 1 $map == 1 and $DST eq 'latin1' or $map == 2 and $SRC eq 'latin1'
0 0 1 $map == 1 and $DST eq 'latin1' or $map == 2 and $SRC eq 'latin1' or $map == 0 and $SRC eq 'latin1' and $DST eq 'latin1'
68 0 0 0 $map != 3 || !($mod & 16)
84 1 0 0 $uni & 2 and $uni & 1 or $utf & 2 and $map & 1
117 0 0 0 ref $_ || !exists($EQUIVAL{$_})
162 0 0 0 $_ < 128 or exists $dst{$_}
164 0 0 0 $_ < 128 or exists $dst{$_}
173 0 0 0 not $src[$_] or $src[$_] == $dst[$_]