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