Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (18 sloc) 507 Bytes
#!/usr/bin/env perl
use Modern::Perl;
use DBIx::Class::Schema::Loader 'make_schema_at';
my $DEBUG = @ARGV and $ARGV[0] =~ /^\-[\-]*v/;
say $DBIx::Class::Schema::Loader::VERSION if $DEBUG;
my @dsn = 'dbi:SQLite:dbname=test.db';
my $options = {
debug => $DEBUG,
dump_directory => 'lib',
components => [qw/ InflateColumn::DateTime /],
generate_pod => 0,
make_schema_at(Schema => $options, \@dsn);
=head1 NAME
=head1 USAGE
perl generate_dbic_schema
Something went wrong with that request. Please try again.