| blib/lib/AlignDB/SQL/Library.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 18 | 72.2 |
| line | true | false | branch |
|---|---|---|---|
| 12 | 2 | 1 | if (-e $self->lib) |
| 13 | 0 | 2 | unless open my $lib_fh, '<', $self->lib |
| 21 | 3 | 54 | if /^\s*$/ |
| 22 | 0 | 54 | if /^\s*#/ |
| 23 | 0 | 54 | if m[^\s*//] |
| 24 | 3 | 51 | if (/^\[([^\]]+)\]/) |
| 28 | 51 | 0 | if ($curr_name) |
| 55 | 2 | 2 | if (ref $entity eq 'AlignDB::SQL') { } |
| 90 | 0 | 1 | unless open my $lib_fh, '>', $self->lib |