| line |
true |
false |
branch |
|
45
|
0 |
1 |
unless @_ == 1 |
|
50
|
1 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
1 |
unless do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
66
|
0 |
1 |
unless @_ == 1 |
|
71
|
1 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
1 |
unless do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
87
|
0 |
1 |
unless @_ == 1 |
|
92
|
1 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
1 |
unless do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
108
|
0 |
1 |
unless @_ == 1 |
|
113
|
1 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
1 |
unless do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |