| blib/lib/Net/FileShare.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 54 | 9.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 220 | 0 | 0 | 0 | defined $read and $read eq length $packet |
| 224 | 0 | 0 | 0 | defined $written and $written eq length $packet |
| 329 | 0 | 0 | 0 | $clie_cmd =~ /^[Gg][Ee][Tt]\s/ and length $clie_cmd > 4 |
| 366 | 0 | 0 | 0 | defined $read and $read eq length $packet |
| 370 | 0 | 0 | 0 | defined $written and $written eq length $packet |
| 472 | 0 | 0 | 0 | $clie_cmd ne $Net::FileShare::GET and $clie_cmd ne $Net::FileShare::LIST |
| 501 | 0 | 0 | 0 | -e "$directory/$local_file" and -r "$directory/$local_file" |
| 533 | 0 | 0 | 0 | defined $read and defined $wrote |
| line | l | !l | condition |
|---|---|---|---|
| 60 | 1 | 0 | $args{'_send_only'} || '0' |
| 0 | 1 | $args{'_socket'} || '1' | |
| 1 | 0 | $args{'_directory'} || '???' | |
| 1 | 0 | $args{'_debug'} || '0' | |
| 84 | 0 | 1 | $_[1] || '3000' |
| 100 | 0 | 0 | $_[1] || '3000' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 162 | 0 | 0 | 0 | ref $file || ref \$file eq 'GLOB' |
| 165 | 0 | 0 | 0 | $cmd =~ /[Gg][Ee][Tt]/ or $cmd =~ /[Ll][Ii][Ss][Tt]|[Ll][Ss]|[Dd][Ii][Rr]/ |
| 271 | 0 | 0 | 0 | ref $local_file || ref \$local_file eq 'GLOB' |
| 487 | 0 | 0 | 0 | $local_file =~ m[^/] or $local_file =~ /^\.\.?$/ |
| 513 | 0 | 0 | 0 | ref $local_file || ref \$local_file eq 'GLOB' |
| 571 | 0 | 0 | 0 | $file =~ /^\./ or -d "$directory/$file" |