Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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
- generate_dbic_schema
- =head1 USAGE
- perl generate_dbic_schema
- =cut
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement