[Catalyst-commits] r10893 - Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script

dhoss at dev.catalyst.perl.org dhoss at dev.catalyst.perl.org
Thu Jul 16 09:25:48 GMT 2009


Author: dhoss
Date: 2009-07-16 09:25:47 +0000 (Thu, 16 Jul 2009)
New Revision: 10893

Added:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Deploy.pm
Log:
added Deploy prototype


Added: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Deploy.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Deploy.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Deploy.pm	2009-07-16 09:25:47 UTC (rev 10893)
@@ -0,0 +1,62 @@
+package Catalyst::Script::Deploy;
+
+use Moose;
+use namespace::autoclean;
+
+with 'MooseX::Getopt';
+use Config::General;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+has _app => (
+    reader   => 'app',
+    init_arg => 'app',
+    traits => [qw(NoGetopt)],
+    isa => 'Str',
+    is => 'ro',
+);
+
+has conf => ( 
+    is  => 'ro', 
+    isa => 'Str',
+    traits => [qw(Getopt)],
+    cmd_alias => 'c',
+);
+
+
+
+
+
+sub usage {
+
+   print "usage: perl script/boyosplace_deploy_schema.pl boyosplace.conf\n";
+   exit;
+
+}
+
+sub run {
+    my ($self) = shift;
+
+    $self->usage if $self->help;
+
+    my $app = $self->app;
+    Class::MOP::load_class($app);
+    Class::MOP::load_class("$app::Schema");
+    
+    my %hash = $conf->getall;
+
+    my $schema = $app::Schema->connect(
+        $hash{"Model::$schema_name"}{connect_info}[0], 
+        $hash{"Model::$schema_name"}{connect_info}[1], 
+        $hash{"Model::$schema_name"}{connect_info}[2]
+    );
+    $schema->deploy( { add_drop_tables => 1 } );
+
+
+}
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
+
+1;
+




More information about the Catalyst-commits mailing list