| blib/lib/DBIx/OracleLogin.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 22 | 31.8 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 0 | 1 | if $text =~ m[.*/.*/] or $text =~ /.*\@.*\@/ |
| 23 | 0 | 1 | if ($text =~ m[^([^/]+)/([^\@]+)\@(.+)$]) { } |
| 1 | 0 | elsif ($text =~ m[^([^\@]+)\@([^/]+)/(.+)$]) { } | |
| 0 | 0 | elsif ($text =~ /^([^\@]+)\@([^.]+)$/) { } | |
| 0 | 0 | elsif ($text =~ m[^([^\@]+)/([^.]+)$]) { } | |
| 0 | 0 | elsif ($text =~ m[^([^\@/]+)$]) { } | |
| 57 | 0 | 1 | unless $user |
| 60 | 0 | 1 | unless ($pass) |
| 69 | 0 | 1 | unless $pass |
| 72 | 0 | 0 | if (not $ENV{'ORACLE_SID'}) { } |
| 0 | 1 | unless ($sid) |