| line |
true |
false |
branch |
|
36
|
5 |
4 |
if $self->{'select'} |
|
49
|
0 |
2 |
unless opendir my $dh, $self->{'route'} |
|
51
|
12 |
8 |
unless $file =~ /^(.+)\.stats$/ |
|
53
|
0 |
8 |
unless open my $fh, "<", "File::Spec"->catfile($self->{'route'}, $file) |
|
71
|
0 |
22 |
unless open my $fh, ">", $self->stats_file |
|
79
|
0 |
6 |
unless open my $fh, "<", $self->stats_file |
|
117
|
0 |
8 |
if ($self->{'reconnect'}) { } |
|
118
|
0 |
0 |
unless $self->check_path($path) |
|
120
|
0 |
0 |
if (open my $fh, "<", $pidfile) |
|
122
|
0 |
0 |
if $pid and $self->pid_is_running($pid) |
|
127
|
0 |
8 |
if -e $path |
|
138
|
0 |
0 |
unless unlink $pidfile |
|
145
|
0 |
8 |
unless open my $fh, ">", $pidfile |
|
153
|
0 |
0 |
unless open my $fh, ">>", $self->resume_file |
|
166
|
25 |
0 |
unless -e $rf |
|
168
|
0 |
0 |
unless open my $fh, "<", $rf |
|
174
|
0 |
0 |
unless unlink $rf |
|
195
|
0 |
10 |
unless opendir my $dh, $self->{'route'} |
|
197
|
8 |
86 |
if $file eq $self->{'id'} |
|
198
|
20 |
66 |
if $file =~ /^(\.|_)/ |
|
199
|
34 |
32 |
if $file =~ /\.pid$/ |
|
200
|
14 |
18 |
unless $self->peer_exists($file) |
|
214
|
0 |
0 |
unless my $path = $self->peer_exists($peer_id) |
|
216
|
0 |
0 |
unless -f $pidfile |
|
217
|
0 |
0 |
unless open my $fh, "<", $pidfile |
|
227
|
0 |
58 |
unless $peer_id |
|
230
|
44 |
14 |
if $self->check_path($path) |