Branch Coverage

blib/lib/UNIVERSAL/Object.pm
Criterion Covered Total %
branch 29 36 80.5


line true false branch
13 28 0 $] >= 5.01 ? :
17 1 89 if ref $class
21 0 88 unless $proto and ref $proto eq 'HASH'
26 0 85 unless defined $self and UNIVERSAL::isa($self, 'UNIVERSAL')
29 4 81 if $self->can('BUILD')
36 4 82 if (scalar @_ == 1 and ref $_[0]) { }
37 1 3 unless ref $_[0] eq 'HASH'
42 1 81 unless scalar(@_) % 2 == 0
50 0 86 if ref $class
53 0 86 unless defined $proto and ref $proto eq 'HASH'
58 0 83 unless defined $instance and ref $instance
69 67 16 if ($repr eq 'HASH')
79 0 76 if ref $class
94 62 104 exists $proto->{$_} ? :
103 65 75 if ref $class
111 3 62 if $self->can('DEMOLISH')
123 7 4 if defined &{$fully_qualified_name;}
132 6 3 if defined &{$fully_qualified_name;}