| line |
true |
false |
branch |
|
40
|
1 |
21 |
if (scalar keys %args > 0) |
|
44
|
1 |
20 |
if (_need_io_handle()) |
|
55
|
21 |
1 |
unless my $no_strict = delete $args->{'no_strict'} |
|
56
|
21 |
1 |
if (not $no_strict) |
|
64
|
21 |
1 |
unless my $no_warnings = delete $args->{'no_warnings'} |
|
65
|
21 |
1 |
if (not $no_warnings) |
|
74
|
21 |
0 |
unless my $binary = delete $args->{'binary'} or delete $args->{'binary_mode'} or delete $args->{'not_utf8'} or delete $args->{'-utf8'} |
|
75
|
21 |
1 |
if (not $binary) |
|
90
|
2 |
23 |
if ($args{'plan'}) |
|
128
|
0 |
1 |
unless (defined $how_many) |
|
130
|
0 |
0 |
if $plan and $plan =~ /^\d+$/ |
|
135
|
0 |
1 |
if (defined $how_many and $how_many =~ /\D/) |
|
149
|
0 |
0 |
scalar @_ == 1 ? : |
|
155
|
18 |
0 |
if (defined $name) |
|
167
|
1 |
35 |
if ($arg_count > 1) |
|
181
|
1 |
43 |
if ($arg_count > 1) |
|
193
|
2 |
82 |
if (defined $value and exists $self->{$key} and defined $self->{$key}) |
|
198
|
87 |
131 |
exists $self->{$key} && defined $self->{$key} ? : |
|
205
|
7 |
19 |
defined $name ? : |
|
264
|
4 |
0 |
if $ret eq 1 |
|
291
|
1 |
1 |
if (scalar @_ == 0) { } |
|
309
|
1 |
1 |
if $self->{'no_x'} |
|
340
|
0 |
4 |
unless ($class) |
|
346
|
0 |
4 |
unless (@methods) |
|
354
|
0 |
5 |
unless _tb()->_try(sub {
$proto->can($method);
}
) |
|
357
|
3 |
1 |
scalar @methods == 1 ? : |
|
375
|
0 |
10 |
if (not defined $got) { } |
|
|
9 |
1 |
elsif (ref $got) { } |
|
383
|
6 |
3 |
if (&Scalar::Util::blessed($got)) |
|
391
|
3 |
7 |
if ($error) |
|
392
|
0 |
3 |
unless $error =~ /^Can't (locate|call) method "isa"/ |
|
400
|
3 |
7 |
if ($whatami eq "reference") |
|
407
|
10 |
0 |
if ($result) { } |
|
425
|
2 |
8 |
if (defined $test_name) { } |
|
|
4 |
4 |
elsif ($whatami eq 'object') { } |
|
|
3 |
1 |
elsif ($whatami eq 'reference') { } |
|
|
0 |
1 |
elsif ($whatami eq 'undef') { } |
|
|
1 |
0 |
elsif ($whatami eq 'class') { } |
|
427
|
2 |
0 |
defined $got ? : |
|
474
|
0 |
8 |
unless ref $code eq "CODE" |
|
478
|
8 |
0 |
if (my $e = $@) { } |
|
479
|
2 |
6 |
if (defined $_[0]) { } |
|
518
|
0 |
8 |
if (my $e = $@) |
|
533
|
0 |
8 |
unless ref $code eq "CODE" |
|
540
|
0 |
8 |
if (my $e = $@) |
|
545
|
8 |
0 |
if (scalar @warns > 0) { } |
|
547
|
2 |
6 |
if (defined $regex) { } |
|
583
|
2 |
8 |
if (not ref $got || ref $expected) { } |
|
|
0 |
8 |
elsif (not ref $got xor not ref $expected) { } |
|
596
|
0 |
8 |
unless $ok |
|
625
|
0 |
9 |
if (defined $e1 xor defined $e2) { } |
|
|
0 |
9 |
elsif (not defined $e1 || defined $e2) { } |
|
|
0 |
9 |
elsif ($self->_dne($e1) xor $self->_dne($e2)) { } |
|
|
1 |
8 |
elsif ($same_ref and $e1 eq $e2) { } |
|
|
0 |
8 |
elsif ($not_ref) { } |
|
643
|
0 |
8 |
if ($Refs_Seen{$e1}) { } |
|
661
|
0 |
8 |
unless $self->_type($e2) eq $type |
|
663
|
0 |
8 |
if ($type eq 'DIFFERENT') { } |
|
|
5 |
3 |
elsif ($type eq 'ARRAY') { } |
|
|
3 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'REF') { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($type) { } |
|
676
|
0 |
0 |
if $ok |
|
681
|
0 |
0 |
if $ok |
|
702
|
1 |
0 |
if $type |
|
703
|
1 |
0 |
if $vals |
|
704
|
1 |
0 |
if $idx |
|
712
|
0 |
5 |
if (grep(($self->_type($_) ne "ARRAY"), $a1, $a2)) |
|
717
|
0 |
5 |
if $a1 eq $a2 |
|
720
|
0 |
5 |
$#$a1 > $#$a2 ? : |
|
723
|
0 |
8 |
$_ > $#$a1 ? : |
|
724
|
0 |
8 |
$_ > $#$a2 ? : |
|
726
|
7 |
1 |
if $self->_equal_nonrefs($e1, $e2) |
|
730
|
1 |
0 |
if $ok |
|
732
|
0 |
1 |
unless $ok |
|
741
|
0 |
3 |
if (grep(($self->_type($_) ne "HASH"), $a1, $a2)) |
|
746
|
0 |
3 |
if $a1 eq $a2 |
|
749
|
0 |
3 |
keys %$a1 > keys %$a2 ? : |
|
752
|
2 |
0 |
exists $a1->{$k} ? : |
|
753
|
2 |
0 |
exists $a2->{$k} ? : |
|
755
|
2 |
0 |
if $self->_equal_nonrefs($e1, $e2) |
|
759
|
0 |
0 |
if $ok |
|
761
|
0 |
0 |
unless $ok |
|
770
|
1 |
9 |
if ref $e1 or ref $e2 |
|
772
|
9 |
0 |
if (defined $e1) { } |
|
773
|
9 |
0 |
if defined $e2 and $e1 eq $e2 |
|
776
|
0 |
0 |
unless defined $e2 |
|
785
|
0 |
32 |
unless ref $thing |
|
788
|
32 |
44 |
if UNIVERSAL::isa($thing, $type) |
|
803
|
0 |
0 |
if ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'REF') { } |
|
804
|
0 |
0 |
unless $did_arrow++ |
|
808
|
0 |
0 |
unless $did_arrow++ |
|
826
|
0 |
0 |
ref $val ? : |
|
|
0 |
0 |
$self->_dne($val) ? : |
|
|
0 |
0 |
!defined($val) ? : |