| line |
true |
false |
branch |
|
110
|
6 |
2 |
if (defined $string) { } |
|
111
|
4 |
2 |
if defined $match and $string eq $match |
|
114
|
1 |
1 |
unless defined $match |
|
134
|
2 |
6 |
if defined $string xor defined $unmatch |
|
136
|
1 |
4 |
if defined $string and defined $unmatch and $string ne $unmatch |
|
156
|
6 |
1 |
if (defined $string and not ref $string) |
|
157
|
5 |
1 |
if (ref $regex) |
|
158
|
3 |
2 |
if $string =~ /$regex/ |
|
180
|
2 |
5 |
unless defined $string |
|
182
|
3 |
2 |
if (ref $regex eq "Regexp") |
|
183
|
1 |
2 |
unless $string =~ /$regex/ |
|
198
|
7 |
2 |
if defined $_[0] |
|
212
|
1 |
3 |
unless defined $_[0] |
|
229
|
2 |
5 |
if (not defined $this) { } |
|
233
|
1 |
4 |
if (ref $this) { } |
|
237
|
2 |
2 |
if $this ne "" |
|
260
|
12 |
9 |
if &Scalar::Util::looks_like_number($n) |
|
282
|
18 |
2 |
if (defined $this) |
|
283
|
6 |
12 |
if $this =~ /$INTEGER/ |
|
305
|
5 |
5 |
if (&Scalar::Util::looks_like_number($this)) |
|
306
|
4 |
1 |
if $this != 0 |
|
328
|
5 |
5 |
if (&Scalar::Util::looks_like_number($this)) |
|
329
|
3 |
2 |
if $this + 0 > 0 |
|
353
|
5 |
5 |
if (&Scalar::Util::looks_like_number($this)) |
|
354
|
4 |
1 |
if $this >= 0 |
|
377
|
1 |
9 |
if defined $this and $this + 0 < 0 |
|
398
|
3 |
7 |
if (defined $this and $this =~ /$INTEGER/) |
|
399
|
2 |
1 |
if $this != 0 |
|
422
|
4 |
7 |
if (defined $this and $this =~ /$INTEGER/) |
|
423
|
2 |
2 |
if $this > 0 |
|
445
|
3 |
7 |
if (defined $this and $this =~ /$INTEGER/) |
|
446
|
2 |
1 |
if $this >= 0 |
|
468
|
3 |
8 |
if (defined $this and $this =~ /$INTEGER/) |
|
469
|
1 |
2 |
if $this < 0 |
|
494
|
2 |
4 |
if &Scalar::Util::blessed($this) and $this->isa($type) |
|
495
|
1 |
3 |
if ref $this eq $type |
|
515
|
12 |
5 |
if (&Scalar::Util::blessed($obj)) |
|
517
|
9 |
3 |
if $obj->isa($_) |
|
550
|
6 |
7 |
if (&Scalar::Util::blessed($ref)) { } |
|
559
|
5 |
8 |
if ($underlying_type eq 'HASH') { } |
|
|
5 |
3 |
elsif ($underlying_type eq 'ARRAY') { } |
|
560
|
2 |
3 |
if scalar keys %{$ref;} == 0 |
|
565
|
2 |
3 |
if @{$ref;} == 0 |
|
573
|
3 |
6 |
if $n and $n > 1 |
|
605
|
4 |
9 |
if (&Scalar::Util::blessed($ref)) { } |
|
614
|
4 |
9 |
if ($underlying_type eq 'HASH') { } |
|
|
4 |
5 |
elsif ($underlying_type eq 'ARRAY') { } |
|
615
|
2 |
2 |
if scalar keys %{$ref;} > 0 |
|
619
|
2 |
2 |
if scalar @{$ref;} > 0 |
|
642
|
3 |
1 |
unless ref $this |
|
674
|
3 |
4 |
if (ref $ref eq "HASH" or &Scalar::Util::blessed($ref) and $ref->isa("HASH")) |
|
694
|
6 |
4 |
if (ref $ref eq "HASH" or &Scalar::Util::blessed($ref) and $ref->isa("HASH")) |
|
695
|
3 |
3 |
if scalar keys %{$ref;} > 0 |
|
723
|
5 |
8 |
if (ref $ref eq "ARRAY" or &Scalar::Util::blessed($ref) and $ref->isa("ARRAY")) |
|
743
|
7 |
4 |
if (ref $ref eq "ARRAY" or &Scalar::Util::blessed($ref) and $ref->isa("ARRAY")) |
|
744
|
4 |
3 |
if scalar @{$ref;} > 0 |
|
765
|
4 |
4 |
if (ref $ref eq "ARRAY" or &Scalar::Util::blessed($ref) and $ref->isa("ARRAY")) |
|
768
|
2 |
0 |
unless (ref $val eq "HASH" or &Scalar::Util::blessed($val) and $val->isa("HASH")) |
|
775
|
2 |
6 |
if $ok |
|
792
|
2 |
5 |
if (ref $ref eq "CODE" or &Scalar::Util::blessed($ref) and $ref->isa("CODE")) |
|
813
|
0 |
0 |
if (ref $ref eq "DateTime" or &Scalar::Util::blessed($ref) and $ref->isa("DateTime")) |
|
842
|
12 |
0 |
unless (ref $needle) |
|
845
|
10 |
2 |
if (ref $haystack eq "ARRAY" or &Scalar::Util::blessed($haystack) and $haystack->isa("ARRAY")) |
|
850
|
1 |
27 |
if (ref $element) |
|
857
|
9 |
1 |
if ($elements_ok) |
|
858
|
7 |
2 |
if (defined $needle) { } |
|
860
|
5 |
12 |
if ($needle eq $element) |
|
868
|
1 |
4 |
unless (defined $element) |
|
878
|
6 |
6 |
if $found |
|
906
|
10 |
0 |
if (ref $hash eq "HASH" or &Scalar::Util::blessed($hash) and $hash->isa("HASH")) |
|
907
|
9 |
1 |
if (defined $key) |
|
908
|
5 |
4 |
if (ref $key eq 'ARRAY') { } |
|
|
3 |
1 |
elsif (not ref $key) { } |
|
911
|
2 |
5 |
unless (exists $hash->{$_}) |
|
926
|
4 |
6 |
if $ok |
|
954
|
6 |
0 |
if (ref $hash eq "HASH" or &Scalar::Util::blessed($hash) and $hash->isa("HASH")) |
|
955
|
6 |
0 |
if (defined $key) |
|
956
|
4 |
2 |
if (ref $key eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (not ref $key) { } |
|
959
|
1 |
5 |
if (exists $hash->{$_}) |
|
974
|
3 |
3 |
if $ok |
|
1000
|
6 |
1 |
if (ref $hash eq 'HASH' or &Scalar::Util::blessed($hash) and $hash->isa('HASH')) { } |
|
1001
|
5 |
1 |
if (ref $keys eq 'ARRAY') { } |
|
1005
|
2 |
6 |
unless (exists $keys{$key}) |
|
1020
|
3 |
4 |
if $ok |
|
1040
|
9 |
1 |
if (ref $hash eq 'HASH' or &Scalar::Util::blessed($hash) and $hash->isa('HASH')) { } |
|
1041
|
8 |
1 |
if (ref $keys eq 'ARRAY') { } |
|
1047
|
3 |
11 |
unless (exists $keys{$key}) |
|
1056
|
3 |
11 |
unless (exists $hash->{$key}) |
|
1071
|
3 |
7 |
if $ok |
|
1112
|
2 |
1 |
if defined $wantarray |
|
1151
|
1 |
2 |
if defined $wantarray and not $wantarray |
|
1180
|
37 |
172 |
if defined $name |
|
1182
|
34 |
175 |
if defined $why |