| line |
true |
false |
branch |
|
112
|
6 |
2 |
if (defined $string) { } |
|
113
|
4 |
2 |
if defined $match and $string eq $match |
|
116
|
1 |
1 |
unless defined $match |
|
136
|
2 |
6 |
if defined $string xor defined $unmatch |
|
138
|
1 |
4 |
if defined $string and defined $unmatch and $string ne $unmatch |
|
200
|
1 |
112 |
if (not defined $op) { } |
|
|
13 |
99 |
elsif ($op eq '==') { } |
|
|
13 |
86 |
elsif ($op eq '!=') { } |
|
|
17 |
69 |
elsif ($op eq '<') { } |
|
|
17 |
52 |
elsif ($op eq '<=') { } |
|
|
18 |
34 |
elsif ($op eq '>') { } |
|
|
17 |
17 |
elsif ($op eq '>=') { } |
|
|
2 |
15 |
elsif ($op eq 'lt') { } |
|
|
2 |
13 |
elsif ($op eq 'le') { } |
|
|
2 |
11 |
elsif ($op eq 'gt') { } |
|
|
2 |
9 |
elsif ($op eq 'ge') { } |
|
204
|
5 |
6 |
if &looks_like_number($x) and &looks_like_number($y) and $x == $y |
|
207
|
5 |
6 |
if &looks_like_number($x) and &looks_like_number($y) and $x != $y |
|
210
|
7 |
8 |
if &looks_like_number($x) and &looks_like_number($y) and $x < $y |
|
213
|
7 |
8 |
if &looks_like_number($x) and &looks_like_number($y) and $x <= $y |
|
216
|
7 |
9 |
if &looks_like_number($x) and &looks_like_number($y) and $x > $y |
|
219
|
7 |
8 |
if &looks_like_number($x) and &looks_like_number($y) and $x >= $y |
|
222
|
1 |
1 |
if defined $x and defined $y and $x lt $y |
|
225
|
1 |
1 |
if defined $x and defined $y and $x le $y |
|
228
|
1 |
1 |
if defined $x and defined $y and $x gt $y |
|
231
|
1 |
1 |
if defined $x and defined $y and $x ge $y |
|
257
|
6 |
1 |
if (defined $string and not ref $string) |
|
258
|
5 |
1 |
if (ref $regex) |
|
259
|
3 |
2 |
if $string =~ /$regex/ |
|
281
|
2 |
5 |
unless defined $string |
|
283
|
3 |
2 |
if (ref $regex eq "Regexp") |
|
284
|
1 |
2 |
unless $string =~ /$regex/ |
|
299
|
7 |
2 |
if defined $_[0] |
|
313
|
1 |
3 |
unless defined $_[0] |
|
330
|
2 |
5 |
if (not defined $this) { } |
|
334
|
1 |
4 |
if (ref $this) { } |
|
338
|
2 |
2 |
if $this ne "" |
|
361
|
12 |
9 |
if &Scalar::Util::looks_like_number($n) |
|
383
|
18 |
2 |
if (defined $this) |
|
384
|
6 |
12 |
if $this =~ /$INTEGER/ |
|
406
|
5 |
5 |
if (&Scalar::Util::looks_like_number($this)) |
|
407
|
4 |
1 |
if $this != 0 |
|
429
|
5 |
5 |
if (&Scalar::Util::looks_like_number($this)) |
|
430
|
3 |
2 |
if $this + 0 > 0 |
|
454
|
5 |
5 |
if (&Scalar::Util::looks_like_number($this)) |
|
455
|
4 |
1 |
if $this >= 0 |
|
478
|
1 |
9 |
if defined $this and $this + 0 < 0 |
|
499
|
3 |
7 |
if (defined $this and $this =~ /$INTEGER/) |
|
500
|
2 |
1 |
if $this != 0 |
|
523
|
4 |
7 |
if (defined $this and $this =~ /$INTEGER/) |
|
524
|
2 |
2 |
if $this > 0 |
|
546
|
3 |
7 |
if (defined $this and $this =~ /$INTEGER/) |
|
547
|
2 |
1 |
if $this >= 0 |
|
569
|
3 |
8 |
if (defined $this and $this =~ /$INTEGER/) |
|
570
|
1 |
2 |
if $this < 0 |
|
595
|
2 |
4 |
if &Scalar::Util::blessed($this) and $this->isa($type) |
|
596
|
1 |
3 |
if ref $this eq $type |
|
616
|
12 |
5 |
if (&Scalar::Util::blessed($obj)) |
|
618
|
9 |
3 |
if $obj->isa($_) |
|
651
|
6 |
7 |
if (&Scalar::Util::blessed($ref)) { } |
|
660
|
5 |
8 |
if ($underlying_type eq 'HASH') { } |
|
|
5 |
3 |
elsif ($underlying_type eq 'ARRAY') { } |
|
661
|
2 |
3 |
if scalar keys %{$ref;} == 0 |
|
666
|
2 |
3 |
if @{$ref;} == 0 |
|
674
|
3 |
6 |
if $n and $n > 1 |
|
706
|
4 |
9 |
if (&Scalar::Util::blessed($ref)) { } |
|
715
|
4 |
9 |
if ($underlying_type eq 'HASH') { } |
|
|
4 |
5 |
elsif ($underlying_type eq 'ARRAY') { } |
|
716
|
2 |
2 |
if scalar keys %{$ref;} > 0 |
|
720
|
2 |
2 |
if scalar @{$ref;} > 0 |
|
743
|
3 |
1 |
unless ref $this |
|
775
|
3 |
4 |
if (ref $ref eq "HASH" or &Scalar::Util::blessed($ref) and $ref->isa("HASH")) |
|
795
|
6 |
4 |
if (ref $ref eq "HASH" or &Scalar::Util::blessed($ref) and $ref->isa("HASH")) |
|
796
|
3 |
3 |
if scalar keys %{$ref;} > 0 |
|
824
|
5 |
8 |
if (ref $ref eq "ARRAY" or &Scalar::Util::blessed($ref) and $ref->isa("ARRAY")) |
|
844
|
7 |
4 |
if (ref $ref eq "ARRAY" or &Scalar::Util::blessed($ref) and $ref->isa("ARRAY")) |
|
845
|
4 |
3 |
if scalar @{$ref;} > 0 |
|
866
|
4 |
4 |
if (ref $ref eq "ARRAY" or &Scalar::Util::blessed($ref) and $ref->isa("ARRAY")) |
|
869
|
2 |
0 |
unless (ref $val eq "HASH" or &Scalar::Util::blessed($val) and $val->isa("HASH")) |
|
876
|
2 |
6 |
if $ok |
|
893
|
2 |
5 |
if (ref $ref eq "CODE" or &Scalar::Util::blessed($ref) and $ref->isa("CODE")) |
|
914
|
0 |
0 |
if (ref $ref eq "DateTime" or &Scalar::Util::blessed($ref) and $ref->isa("DateTime")) |
|
943
|
12 |
0 |
unless (ref $needle) |
|
946
|
10 |
2 |
if (ref $haystack eq "ARRAY" or &Scalar::Util::blessed($haystack) and $haystack->isa("ARRAY")) |
|
951
|
1 |
27 |
if (ref $element) |
|
958
|
9 |
1 |
if ($elements_ok) |
|
959
|
7 |
2 |
if (defined $needle) { } |
|
961
|
5 |
12 |
if ($needle eq $element) |
|
969
|
1 |
4 |
unless (defined $element) |
|
979
|
6 |
6 |
if $found |
|
1007
|
10 |
0 |
if (ref $hash eq "HASH" or &Scalar::Util::blessed($hash) and $hash->isa("HASH")) |
|
1008
|
9 |
1 |
if (defined $key) |
|
1009
|
5 |
4 |
if (ref $key eq 'ARRAY') { } |
|
|
3 |
1 |
elsif (not ref $key) { } |
|
1012
|
2 |
5 |
unless (exists $hash->{$_}) |
|
1027
|
4 |
6 |
if $ok |
|
1055
|
6 |
0 |
if (ref $hash eq "HASH" or &Scalar::Util::blessed($hash) and $hash->isa("HASH")) |
|
1056
|
6 |
0 |
if (defined $key) |
|
1057
|
4 |
2 |
if (ref $key eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (not ref $key) { } |
|
1060
|
1 |
5 |
if (exists $hash->{$_}) |
|
1075
|
3 |
3 |
if $ok |
|
1101
|
8 |
1 |
if (ref $hash eq 'HASH' or &Scalar::Util::blessed($hash) and $hash->isa('HASH')) { } |
|
1102
|
7 |
1 |
if (ref $keys eq 'ARRAY') { } |
|
1106
|
9 |
9 |
unless (exists $keys{$key}) |
|
1120
|
3 |
6 |
if $ok |
|
1140
|
14 |
1 |
if (ref $hash eq 'HASH' or &Scalar::Util::blessed($hash) and $hash->isa('HASH')) { } |
|
1141
|
13 |
1 |
if (ref $keys eq 'ARRAY') { } |
|
1147
|
16 |
17 |
unless (exists $keys{$key}) |
|
1155
|
21 |
17 |
unless (exists $hash->{$key}) |
|
1169
|
3 |
12 |
if $ok |
|
1210
|
2 |
1 |
if defined $wantarray |
|
1249
|
1 |
2 |
if defined $wantarray and not $wantarray |
|
1277
|
37 |
250 |
if defined $name |