lib/SQL/Admin/Driver/Pg/DBI.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 8 | 0.0 |
line | l | !l | condition |
---|---|---|---|
372 | 0 | 0 | $$map{$oid} ||= {-'name', lcws($$row{'table_name'}), -'schema', lcws($$row{'table_schema'}), -'column_list', []} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
65 | 0 | 0 | 0 | $$self{'parser'} ||= 'SQL::Admin::Driver::Pg::Parser'->new |
366 | 0 | 0 | 0 | $$self{'TCM'} ||= do { my $map = {}; my $sth = $self->execute($self->_query_table_column(@schemas)); while (my $row = $sth->fetchrow_hashref) { do { my $oid = $$row{'table_oid'}; $$map{$oid} ||= {-'name', lcws($$row{'table_name'}), -'schema', lcws($$row{'table_schema'}), -'column_list', []}; $$row{'column_name'} = lcws($$row{'column_name'}); $$map{$oid}{$$row{'column_number'}} = $$row{'column_name'}; push @{$$map{$oid}{-'column_list'};}, $row }; }; $sth->finish; $map } |