Branch Coverage

blib/lib/Net/CascadeCopy.pm
Criterion Covered Total %
branch 71 92 77.1


line true false branch
57 252 1 unless (defined $self->sort_order->{$group}{$server})
89 1 98 unless $self->_transfer_loop($transfer_start)
103 6 5 unless (scalar keys %{$self->data->{'remaining'};} or $self->data->{'running'})
113 2 4 if ($savings)
124 1 5 if ($failure_count) { }
140 144 156 if ($self->_get_available_servers($group))
155 0 95 unless $seconds
159 0 95 if ($seconds > 3600)
164 0 95 if ($seconds > 60)
169 95 0 if ($seconds)
181 82 0 if ($self->data->{'completed'}{$group})
187 82 0 if ($self->data->{'running'})
189 57 33 if ($self->data->{'running'}{$pid}{'group'} eq $group)
197 68 14 if ($self->data->{'remaining'}{$group})
219 26 118 if (defined $f and $f == 0) { }
224 7 19 if ($source eq 'localhost') { }
246 0 26 if ($output eq 'stdout') { }
0 26 elsif ($output eq 'log') { }
261 0 26 if ($? == -1) { }
0 26 elsif ($? & 127) { }
264 0 0 $? & 128 ? :
269 1 25 if ($exit_status)
287 55 121 unless $self->data->{'running'}
292 82 155 if (&CORE::GLOBAL::waitpid($pid, 1))
295 1 81 if ($?) { }
303 34 87 unless (keys %{$self->data->{'running'};})
355 1 0 if (not $self->_get_available_servers($group)) { }
0 0 elsif ($fail_count >= $self->max_failures) { }
372 0 513 unless $self->data->{'available'}
373 0 513 unless $self->data->{'available'}{$group}
377 258 361 if ($self->children->{$host})
378 124 134 if $self->children->{$host} >= $self->max_forks
393 42 102 if ($server eq 'localhost')
404 0 216 unless $self->data->{'remaining'}
406 6 210 unless $self->data->{'remaining'}{$group}
424 144 0 if ($self->_get_remaining_servers($group))
430 15 129 unless (scalar keys %{$self->data->{'remaining'}{$group};})
433 12 3 unless (scalar keys %{$self->data->{'remaining'};})
444 5 271 unless $self->data->{'remaining'}
446 10 261 unless scalar @keys
456 34 129 if ($server eq 'localhost')
458 34 0 if ($self->data->{'completed'}{$group})
469 48 81 if ($self->children->{$server})
493 1 1 if ($fatal) { }
511 2 87 if ($self->data->{'failed'} and $self->data->{'failed'}{$group})
514 2 0 if ($self->data->{'failed'}{$group}{$server} >= $self->max_failures)