make an App::Netdisco dist using Module::Install

This commit is contained in:
Oliver Gorwits
2012-12-17 18:31:16 +00:00
parent 6a0aa7864e
commit 05086e8b78
125 changed files with 428 additions and 127 deletions

View File

@@ -1,12 +1,13 @@
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use FindBin;
use lib "$FindBin::Bin/../lib";
use App::Netdisco;
use Dancer ':script';
use Dancer::Plugin::DBIC 'schema';
use Netdisco::DB;
use App::Netdisco::DB;
use Getopt::Long;
=head1 nd-dbic-versions
@@ -22,10 +23,7 @@ specification.
=cut
schema('netdisco')->create_ddl_dir(
'PostgreSQL', $version, $sql_dir, $preversion );
my $sql_dir = $Netdisco::DB::schema_versions_dir;
my $sql_dir = $App::Netdisco::DB::schema_versions_dir;
my $version = schema('netdisco')->schema_version;
my ( $preversion, $help );
@@ -49,3 +47,7 @@ $sql_dir
ENDHELP
exit(1);
};
schema('netdisco')->create_ddl_dir(
'PostgreSQL', $version, $sql_dir, $preversion );