use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07043';
+our $VERSION = '0.07045';
=head1 NAME
local $self->{db_schema} = [ $f_schema ] if $f_schema;
first {
- lc($_->name) eq lc($f_table)
+ lc($_->name) eq lc($f_table)
&& ((not $f_schema) || lc($_->schema) eq lc($f_schema))
} $self->_tables_list;
};
return $comment;
}
+sub _view_definition {
+ my ($self, $view) = @_;
+
+ return scalar $self->schema->storage->dbh->selectrow_array(
+ q{SELECT view_definition
+ FROM information_schema.views
+ WHERE table_schema = schema()
+ AND table_name = ?
+ }, undef, $view->name,
+ );
+}
+
=head1 SEE ALSO
L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
L<DBIx::Class::Schema::Loader::DBI>
-=head1 AUTHOR
+=head1 AUTHORS
-See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
+See L<DBIx::Class::Schema::Loader/AUTHORS>.
=head1 LICENSE