package DBIx::Class::Schema::Loader::DBI::Writing;
use strict;
-our $VERSION = '0.04999_10';
+our $VERSION = '0.07001';
# Empty. POD only.
# concatenated if you wish.
}
+ sub _table_comment {
+ my ( $self, $table ) = @_;
+ return 'Comment';
+ }
+
+ sub _column_comment {
+ my ( $self, $table, $column_number ) = @_;
+ return 'Col. comment';
+ }
+
1;
=head1 DETAILS
=head1 AUTHOR
-See L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
+See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
=head1 LICENSE
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
+To import comments from database you need to implement C<_table_comment>,
+C<_column_comment>
+
=cut
1;