| blib/lib/URI/_emailauth.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 8 | 6 | if (@_) |
| 22 | 4 | 4 | unless defined $new_info |
| 26 | 2 | 6 | if (not defined $new || length $new_info) { } |
| 29 | 0 | 6 | unless defined $new |
| 36 | 4 | 10 | unless defined $old |
| 46 | 6 | 4 | if (@_) |
| 48 | 0 | 6 | unless defined $new |
| 55 | 4 | 2 | if (defined $auth) |
| 64 | 0 | 10 | unless defined $old |
| 66 | 4 | 6 | if $old =~ /;auth=(.*)/i |