| line | % | coverage | branch |
|---|
| 192 | 50 | T | F | unless defined $args->{$required} and length $args->{$required} |
| 195 | 50 | T | F | unless &any(sub {
$_ eq $args->{'role'};
}
, @App::FileSync::Server::ROLES) |
| 200 | 50 | T | F | unless $ok |
| 202 | 50 | T | F | unless $args->{'connection'} |
| 332 | 100 | T | F | unless ($self->{'lock'}) |
| 340 | 100 | T | F | unless $self->{'dry_run'} |
| 357 | 100 | T | F | if $ok |
| 366 | 100 | T | F | $self->{'refusal'} ? : |
| 443 | 100 | T | F | defined $original ? : |
| 444 | 100 | T | F | unless @tokens |
| 446 | 100 | T | F | unless ($tokens[0] =~ /\A--/) |
| 448 | 100 | T | F | unless $program =~ m[(?:\A|/)\Q$App::FileSync::Server::SERVER_PROGRAM\E\z] |
| 454 | 100 | T | F | unless $token =~ /\A--([a-z][a-z-]*)(?:=(.*))?\z/s |
| 458 | 100 | T | F | unless (defined $value) |
| 459 | 100 | T | F | unless @tokens |
| 463 | 100 | T | F | unless my $field = $FORCED_FLAGS{$flag} |
| 465 | 100 | T | F | if ($field eq "proto") |
| 466 | 100 | T | F | unless $value eq $PROTO |
| 471 | 100 | T | F | unless defined $expected and $value eq $expected |