Branch Coverage

blib/lib/Data/Variant.pm
Criterion Covered Total %
branch 32 62 51.6


line true false branch
150 0 1 if (exists $dataTypes{$dt})
160 0 3 if (ref $_) { }
166 0 3 if exists $altHash{$con}
175 0 1 if $DEBUG
200 1 0 defined $module ? :
202 0 1 if $dt->isa('Data::Variant')
246 0 4 unless exists $constructors{$cons}
260 0 6 unless defined $val
263 0 6 if $DEBUG
270 0 2 unless (~$val & $val) eq 0
2 4 if (&Switch::case(''))
271 0 0 unless ref $val eq ''
0 4 if (&Switch::case(''))
272 0 0 unless ref $val
0 4 if (&Switch::case(''))
273 0 4 if (&Switch::case('*')) { }
275 0 4 unless $val->isa('Data::Variant') and $$val{'Type'} eq $var
281 0 6 if $badtype
289 0 4 if @_ > 0
294 0 4 if $DEBUG
325 7 12 if (@_ == 1)
326 0 7 unless $_[0]->isa('Data::Variant')
336 12 0 if (ref $_[0] ne '') { }
339 0 0 unless defined $matchObject
343 0 12 unless $obj->isa('Data::Variant')
350 0 12 if ($reqtype ne $$obj{'Type'})
356 4 8 if ($$obj{'Cons'} ne $constr) { }
365 0 8 if $valsize != @_
369 5 13 if (ref $_[$v]) { }
393 0 7 unless defined $_[0]
416 0 1 unless $matchObject->isa('Data::Variant')