13 lines
168 B
Text
13 lines
168 B
Text
|
#! /usr/bin/env perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Pear::LocalLoop::Schema;
|
||
|
|
|
||
|
|
my @con = @ARGV;
|
||
|
|
|
||
|
|
my $schema = Pear::LocalLoop::Schema->connect(@con);
|
||
|
|
|
||
|
|
$schema->deploy;
|