DBIx::Class::Schema::Loader::DBI::Writing3pm

    package DBIx::Class::Schema::Loader::DBI::Foo;
    # THIS IS JUST A TEMPLATE TO GET YOU STARTED.
    use strict;
    use warnings;
    use base 'DBIx::Class::Schema::Loader::DBI';
    use mro 'c3';
    sub _table_uniq_info {
        my ($self, $table) = @_;
        # ... get UNIQUE info for $table somehow
        # and return a data structure that looks like this:
        return [
             [ 'keyname' => [ 'colname' ] ],
             [ 'keyname2' => [ 'col1name', 'col2name' ] ],
             [ 'keyname3' => [ 'colname' ] ],
        ];
        # Where the "keyname"'s are just unique identifiers, such as the
        # name of the unique constraint, or the names of the columns involved
        # concatenated if you wish.
    }
    sub _table_comment {
        my ( $self, $table ) = @_;
        return 'Comment';
    }
    sub _column_comment {
        my ( $self, $table, $column_number ) = @_;
        return 'Col. comment';
    }
    1;