Branch Coverage

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


line true false branch
542 24 104 if $cust_disp
544 1 103 unless UNIVERSAL::isa($self, 'Set::Object')
554 4 38 unless UNIVERSAL::isa($s2, 'Set::Object')
556 35 3 if $s1->size == $s2->size
576 11 8 if (ref $_[0]) { }
582 0 19 if ref $other and not UNIVERSAL::isa($other, 'Set::Object')
597 0 25 unless (ref $s)
601 2 23 unless UNIVERSAL::isa($s, 'Set::Object')
614 13 4 if (ref $_[0]) { }
620 2 15 if ($r) { }
631 6 56 unless (ref $s2)
632 0 6 if (&is_int($s2) and not &is_string($s2) and $s2 == 0) { }
639 2 60 unless UNIVERSAL::isa($s2, 'Set::Object')
643 2 58 if ($r) { }
655 1 3 if (ref $_[0]) { }
661 0 4 if ref $other and not UNIVERSAL::isa($other, 'Set::Object')
675 7 4 if (ref $_[0]) { }
691 2 17 unless UNIVERSAL::isa($s2, 'Set::Object')
700 2 14 unless UNIVERSAL::isa($s2, 'Set::Object')
702 8 6 if $s1->size < $s2->size
708 2 20 unless UNIVERSAL::isa($s2, 'Set::Object')
716 2 7 unless UNIVERSAL::isa($s2, 'Set::Object')
724 2 6 unless UNIVERSAL::isa($s2, 'Set::Object')
805 1 0 if ($index + 1 > $self->[1]->size) { }
844 0 1 if (@_ == 1) { }
1 0 elsif (@_ == 2) { }
874 0 0 if (shift()) { }
900 0 0 if (@{$self->[0];}) { }
925 4 22 if ($@) { }
926 3 1 if ($@ =~ /overload/i) { }
1 0 elsif ($@ =~ /tie/i) { }
927 1 2 if (my $sub = UNIVERSAL::can($_[0], '(0+')) { }
944 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])) { }
945 0 1 if ($class =~ /^Tangram::/) { }
954 1 4 if (my $sub = UNIVERSAL::can($_[0], '(0+')) { }
2 2 elsif ($sub = UNIVERSAL::can($_[0], '(""')) { }
0 2 elsif ($sub = UNIVERSAL::can($_[0], '(nomethod')) { }
974 1 2004 $obj->is_weak ? :
982 2005 0 if ($_[2])
983 0 2005 if ($_[2] eq 'v2') { }
2005 0 elsif ($_[2] =~ /^v3-(w|s)/) { }
988 1 2004 if ($1 eq 'w')
1017 0 13 unless defined $sv
1018 4 9 if ($self->includes($sv)) { }
1030 0 3 unless UNIVERSAL::isa($other, 'Set::Object')
1036 1 2 if ($intersect->size) { }
1037 1 0 if ($only_self->size) { }
1038 1 0 if ($only_other->size) { }
1044 0 0 if ($only_other->size) { }
1051 1 1 if ($self->size or $other->size) { }
1064 0 1 unless UNIVERSAL::isa($other, 'Set::Object')
1071 5 1 if (@_) { }
1073 1 4 if ($cust_disp and $cust_disp == \&Set::Object::as_string)
1093 2 1 $self->includes($item) ? :
1099 134 11 if (eval { do { $_[0]->isa('Set::Object') } })