Branch Coverage

blib/lib/Set/Object.pm
Criterion Covered Total %
branch 90 114 78.9


line true false branch
555 24 104 if $cust_disp
557 1 103 unless UNIVERSAL::isa($self, "Set::Object")
567 4 38 unless UNIVERSAL::isa($s2, "Set::Object")
569 35 3 if $s1->size == $s2->size
589 11 8 if (ref $_[0]) { }
595 0 19 if ref $other and not UNIVERSAL::isa($other, "Set::Object")
610 0 25 unless (ref $s)
614 2 23 unless UNIVERSAL::isa($s, "Set::Object")
627 13 4 if (ref $_[0]) { }
633 2 15 if ($r) { }
644 6 56 unless (ref $s2)
645 0 6 if (&is_int($s2) and not &is_string($s2) and $s2 == 0) { }
652 2 60 unless UNIVERSAL::isa($s2, "Set::Object")
656 2 58 if ($r) { }
668 1 3 if (ref $_[0]) { }
674 0 4 if ref $other and not UNIVERSAL::isa($other, "Set::Object")
688 7 4 if (ref $_[0]) { }
704 2 17 unless UNIVERSAL::isa($s2, "Set::Object")
713 2 14 unless UNIVERSAL::isa($s2, "Set::Object")
715 8 6 if $s1->size < $s2->size
721 2 20 unless UNIVERSAL::isa($s2, "Set::Object")
729 2 7 unless UNIVERSAL::isa($s2, "Set::Object")
737 2 6 unless UNIVERSAL::isa($s2, "Set::Object")
818 1 0 if ($index + 1 > $self->[1]->size) { }
857 0 1 if (@_ == 1) { }
1 0 elsif (@_ == 2) { }
887 0 0 if (shift()) { }
913 0 0 if (@{$self->[0];}) { }
938 4 22 if ($@) { }
939 3 1 if ($@ =~ /overload/i) { }
1 0 elsif ($@ =~ /tie/i) { }
940 1 2 if (my $sub = UNIVERSAL::can($_[0], '(0+')) { }
957 1 14 if (my $class = tied $_[0]) { }
5 9 elsif (&is_overloaded($_[0])) { }
7 2 elsif (&is_int($_[0]) or &is_string($_[0]) or &is_double($_[0])) { }
958 0 1 if ($class =~ /^Tangram::/) { }
967 1 4 if (my $sub = UNIVERSAL::can($_[0], '(0+')) { }
2 2 elsif ($sub = UNIVERSAL::can($_[0], '(""')) { }
0 2 elsif ($sub = UNIVERSAL::can($_[0], '(nomethod')) { }
987 1 2004 $obj->is_weak ? :
995 2005 0 if ($_[2])
996 0 2005 if ($_[2] eq 'v2') { }
2005 0 elsif ($_[2] =~ /^v3-(w|s)/) { }
1001 1 2004 if ($1 eq "w")
1030 0 13 unless defined $sv
1031 4 9 if ($self->includes($sv)) { }
1043 0 3 unless UNIVERSAL::isa($other, "Set::Object")
1049 1 2 if ($intersect->size) { }
1050 1 0 if ($only_self->size) { }
1051 1 0 if ($only_other->size) { }
1057 0 0 if ($only_other->size) { }
1064 1 1 if ($self->size or $other->size) { }
1077 0 1 unless UNIVERSAL::isa($other, "Set::Object")
1084 5 1 if (@_) { }
1086 1 4 if ($cust_disp and $cust_disp == \&Set::Object::as_string)
1106 2 1 $self->includes($item) ? :
1112 134 11 if (eval { do { $_[0]->isa("Set::Object") } })