| 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] ? : |