| blib/lib/App/DBI/Loader.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 24 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 9 | 0 | if @_ and eval { do { $_[0]->isa('App::DBI::Loader') } } |
| 23 | 0 | 9 | if exists $opts{'h'} |
| 24 | 0 | 9 | if @ARGV < 2 |
| 25 | 1 | 8 | if @ARGV == 2 |
| 33 | 0 | 9 | unless my $dbh = 'DBI'->connect($dbstr, $opts{'u'} || '', $opts{'p'} || '') |
| 36 | 9 | 0 | if $@ |
| 37 | 2 | 7 | if ($ARGV[0] =~ /\(.*\)/) |
| 42 | 5 | 4 | if (exists $opts{'c'}) |
| 49 | 6 | 7 | if ($file eq '-') { } |
| 52 | 0 | 7 | unless open $fh, '<', $file |
| 56 | 41 | 0 | $sep ? : |
| 62 | 0 | 9 | if $has_transaction |