| line |
true |
false |
branch |
|
19
|
1000009 |
9 |
@_ == 1 && ref $_[0] eq 'HASH' ? :
|
|
20
|
2 |
1000016 |
if grep((!/\A(integer|object|hashes)\z/u), keys %args)
|
|
25
|
2 |
1000012 |
unless defined $args{'integer'} and not XXX and $args{'integer'} =~ /\A-?[0-9]+\z/u
|
|
30
|
2 |
1000008 |
unless XXX and $args{'object'}->can("print") and $args{'object'}->can("close")
|
|
33
|
2 |
1000006 |
unless XXX
|
|
35
|
2 |
5000024 |
unless XXX
|
|
44
|
2 |
1000005 |
unless @_ == 3
|
|
46
|
1 |
1000004 |
unless defined $_[0] and not XXX and $_[0] =~ /\A-?[0-9]+\z/u
|
|
51
|
1 |
1000003 |
unless XXX and $_[2]->can("print") and $_[2]->can("close")
|
|
56
|
0 |
1000003 |
unless XXX
|
|
59
|
1 |
5000012 |
unless XXX
|