| 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 |
13 |
if (eval {
do {
$_[0]->isa('Set::Object')
}
})
|