| line |
true |
false |
branch |
|
19
|
400009 |
9 |
@_ == 1 && ref $_[0] eq 'HASH' ? :
|
|
20
|
2 |
400016 |
if grep((!/\A(integer|object|hashes)\z/u), keys %args)
|
|
25
|
2 |
400012 |
unless defined $args{'integer'} and not XXX and $args{'integer'} =~ /\A-?[0-9]+\z/u
|
|
30
|
2 |
400008 |
unless XXX and $args{'object'}->can("print") and $args{'object'}->can("close")
|
|
33
|
2 |
400006 |
unless XXX
|
|
35
|
2 |
2000024 |
unless XXX
|
|
44
|
2 |
400005 |
unless @_ == 3
|
|
46
|
1 |
400004 |
unless defined $_[0] and not XXX and $_[0] =~ /\A-?[0-9]+\z/u
|
|
51
|
1 |
400003 |
unless XXX and $_[2]->can("print") and $_[2]->can("close")
|
|
56
|
0 |
400003 |
unless XXX
|
|
59
|
1 |
2000012 |
unless XXX
|