| blib/lib/Pg/Priv.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 20 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 0 | 21 | unless $acl |
| 38 | 3 | 33 | $privs eq '*' ? : |
| 40 | 12 | 24 | $quote ? : |
| 12 | 24 | $quote ? : | |
| 46 | 14 | 7 | wantarray ? : |
| 61 | 1 | 1 | wantarray ? : |
| 64 | 0 | 143 | unless my $can = (shift())->{'parsed'} |
| 66 | 185 | 27 | length $what == 1 ? : |
| 108 | 104 | unless $$can{length $what == 1 ? $what : $priv_for{uc $what}} | |
| 179 | 53 | 86 | if $role =~ /^[_a-z](?:[_a-z0-9]+)?$/ and not _is_reserved $role |