| blib/lib/FileUpload/Filename.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 20 | 65.0 |
| line | true | false | branch |
|---|---|---|---|
| 11 | 6 | 0 | unless (defined &DEBUG) |
| 14 | 4 | 2 | if (not defined &VERBOSE) |
| 36 | 38 | 1 | exists $$args{'filename'} ? : |
| 39 | 2 | 1 | exists $ENV{'HTTP_USER_AGENT'} ? : |
| 35 | 3 | exists $$args{'agent'} ? : | |
| 48 | 3 | 34 | unless ($os) |
| 49 | 0 | 3 | if VERBOSE() |
| 54 | 0 | 37 | if (DEBUG()) |
| 55 | 0 | 0 | if $agent |
| 56 | 0 | 0 | if $os |