use Carp::Clan qw/^DBIx::Class/;
use mro 'c3';
-our $VERSION = '0.07005';
+our $VERSION = '0.07010';
=head1 NAME
sub _table_as_sql {
my ($self, $table) = @_;
- return $self->_quote_table_name($table);
+ return $self->_quote($table);
}
sub _tables_list {
}
sub _table_comment {
- my ( $self, $table ) = @_;
- my ($table_comment) = $self->schema->storage->dbh->selectrow_array(
+ my $self = shift;
+ my ($table) = @_;
+
+ my $table_comment = $self->next::method(@_);
+
+ return $table_comment if $table_comment;
+
+ ($table_comment) = $self->schema->storage->dbh->selectrow_array(
q{
SELECT comments FROM all_tab_comments
WHERE owner = ?
}
sub _column_comment {
- my ( $self, $table, $column_number, $column_name ) = @_;
- my ($column_comment) = $self->schema->storage->dbh->selectrow_array(
+ my $self = shift;
+ my ($table, $column_number, $column_name) = @_;
+
+ my $column_comment = $self->next::method(@_);
+
+ return $column_comment if $column_comment;
+
+ ($column_comment) = $self->schema->storage->dbh->selectrow_array(
q{
SELECT comments FROM all_col_comments
WHERE owner = ?