| 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")
}
}) |