update_schema.pl

#!/usr/bin/perl

use strict;
use warnings;
use FindBin;
use File::Spec;
use Config::YAML;

use DBIx::Class::Schema::Loader qw/make_schema_at/;

die "YAML file name is needed" unless @ARGV;
my $yaml_name = $ARGV[0];
my $config = Config::YAML->new( config =>
                                File::Spec->catfile( $FindBin::Bin, '..', $yaml_name) );

my $schema_class = $config->{"Model::DBIC"}->{schema_class} || die;
my $connect_info = $config->{"Model::DBIC"}->{connect_info} || die;

make_schema_at(
    $schema_class,
    {
        components =>
          [qw/ResultSetManager UTF8Columns InflateColumn::DateTime/],
        dump_directory => File::Spec->catfile( $FindBin::Bin, '..', 'lib' ),
        debug          => 1,
    },
    $connect_info,
);

__END__
    useage:
    ./bin/update_schema.pl app.yml
~