#!/usr/bin/env perl
use strict;
use warnings;

use DBIx::Class::Schema::Loader 'make_schema_at';
use App::Conf;

my ( $dsn, $dbname, $username, $password ) =
    @{ App::Conf->new->get('database') }{ qw( dsn dbname username password ) };

make_schema_at(
    'App::Db::Schema',
    {
        dump_directory    => 'lib',
        naming            => 'current',
        quiet             => 0,
        generate_pod      => 1,
        use_namespaces    => 1,
        use_moose         => 1,
        schema_base_class => 'App::Db',
        result_roles_map  => {
            User => ['App::Db::Base::Result::User'],
        },
        custom_column_info => sub {
            my ( $table_name, $column_name, $column_info ) = @_;

            if ( $table_name eq 'user' and $column_name eq 'passwd' ) {
                $column_info->{accessor} = '_passwd';
            }
            return $column_info;
        },
    },
    [ $dsn . $dbname, $username, $password ],
);