DBIC dump schema script.

config.yaml

---
database:
  dsn: DBI:mysql:database=DBNAME;host=DBHOST
  userid: DBUSER
  passwd: DBPASS
  options:
    mysql_enable_utf8: 1
    mysql_auto_reconnect: 1

dump_schema.pl

#!/usr/bin/env perl 

my $base_package = 'MyClass::Schema';
my $dump_directory = './lib';

### use this module to generate a set of class files
use YAML;
my $config = YAML::LoadFile('config.yaml');
my $db = $config->{database};

# in a script
use DBIx::Class::Schema::Loader qw/ make_schema_at /;
make_schema_at(
    $base_package,
    { debug => 1,
      dump_directory => $dump_directory,
      components => ['InflateColumn::DateTime', 'TimeStamp'],
    },
    [ 
        $db->{dsn},
        $db->{userid}, 
        $db->{passwd},
        $db->{options},
    ],
);