| blib/lib/DBIx/Schema/Annotate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 6 | 0.0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 31 | 0 | 0 | 0 | $$self{'driver'} ||= do { my $driver_class = sprintf('%s::Driver::%s', 'DBIx::Schema::Annotate', $$self{'dbh'}{'Driver'}{'Name'}); &Module::Load::load($driver_class); $driver_class->new('dbh', $$self{'dbh'}) } |
| 40 | 0 | 0 | 0 | $$self{'tables'} ||= do { my $inspector = 'DBIx::Inspector'->new('dbh', $$self{'dbh'}); my @list; foreach my $info ($inspector->tables) { push @list, $info->name; } ; \@list } |