#!/opt/perl5.10/bin/perl -w
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use DBIx::Class::Schema::Loader "make_schema_at", "dump_to_dir";
use Module::CPANTS::ProcessCPAN;
my $p=Module::CPANTS::ProcessCPAN->new();
my $dest = $ARGV[0] || "$FindBin::Bin/../lib/";
print("Creating Database schema in directory <$dest>\n");
make_schema_at(
"Module::CPANTS::Schema",
{
dump_directory => $dest,
skip_relationships => 1,
components => [qw/ResultSetManager InflateColumn PK/],
},
[$p->dsn],
);
=head1 NAME
babilu_create_dbic_schema.pl -- create schema from current database
=head1 SYNOPSIS
./ babilu_create_dbic_schema.pl --debug --rels --dest=/tmp/lol
Options: --dest chose the destination directory MUST be used
if you use rels-- help this output-- debug be verbose
-- rels analyze relationships between tables
-- host db hostname( defaults to localhost )
= cut
1;