line |
true |
false |
branch |
19
|
2 |
1 |
@_ == 1 ? : |
23
|
2 |
1 |
if (not $file and my $pid = $args{'pid'}) |
24
|
0 |
2 |
if ($pid =~ /^\d+$/) { } |
35
|
1 |
2 |
unless $file |
36
|
1 |
1 |
unless open my $fh, '<:encoding(UTF-8)', $file |
44
|
0 |
20 |
unless $region |
54
|
0 |
0 |
unless my $regions = shift() |
57
|
0 |
0 |
unless ref $regions eq 'ARRAY' |
67
|
0 |
0 |
if (not $fh and my $file = $args{'file'}) |
68
|
0 |
0 |
unless open $fh, '>:encoding(UTF-8)', $file |
70
|
0 |
0 |
if $fh |
77
|
0 |
24 |
unless my $line = shift() |
91
|
1 |
23 |
unless $addr1 |
111
|
0 |
0 |
unless my $region = shift() |
114
|
0 |
0 |
$args[2] ? : |
115
|
0 |
0 |
$args[3] ? : |
116
|
0 |
0 |
$args[4] ? : |
117
|
0 |
0 |
$args[5] ? : |