| line |
true |
false |
branch |
|
18
|
2 |
1 |
@_ == 1 ? : |
|
22
|
2 |
1 |
if (not $file and my $pid = $args{'pid'}) |
|
23
|
0 |
2 |
if ($pid =~ /^\d+$/) { } |
|
34
|
1 |
2 |
unless $file |
|
35
|
1 |
1 |
unless open my $fh, '<:encoding(UTF-8)', $file |
|
43
|
0 |
20 |
unless $region |
|
53
|
0 |
0 |
unless my $regions = shift() |
|
56
|
0 |
0 |
unless ref $regions eq 'ARRAY' |
|
66
|
0 |
0 |
if (not $fh and my $file = $args{'file'}) |
|
67
|
0 |
0 |
unless open $fh, '>:encoding(UTF-8)', $file |
|
69
|
0 |
0 |
if $fh |
|
76
|
0 |
24 |
unless my $line = shift() |
|
90
|
1 |
23 |
unless $addr1 |
|
110
|
0 |
0 |
unless my $region = shift() |
|
113
|
0 |
0 |
$args[2] ? : |
|
114
|
0 |
0 |
$args[3] ? : |
|
115
|
0 |
0 |
$args[4] ? : |
|
116
|
0 |
0 |
$args[5] ? : |