1 package Catalyst::Script::Deploy;
4 use namespace::autoclean;
9 use lib "$FindBin::Bin/../lib";
14 traits => [qw(NoGetopt)],
22 traits => [qw(Getopt)],
32 print "usage: perl script/boyosplace_deploy_schema.pl boyosplace.conf\n";
40 $self->usage if $self->help;
43 Class::MOP::load_class($app);
44 Class::MOP::load_class("$app::Schema");
46 my %hash = $conf->getall;
48 my $schema = $app::Schema->connect(
49 $hash{"Model::$schema_name"}{connect_info}[0],
50 $hash{"Model::$schema_name"}{connect_info}[1],
51 $hash{"Model::$schema_name"}{connect_info}[2]
53 $schema->deploy( { add_drop_tables => 1 } );
59 __PACKAGE__->meta->make_immutable;