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 +0,0 @@
../config.yml

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 );

View File

@@ -1,5 +1,9 @@
#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use App::Netdisco;
use Dancer qw/:moose :script/;
use Dancer::Plugin::DBIC 'schema';
@@ -61,7 +65,7 @@ sub gd_run_body {
$pp->start(sub {
print STDERR ">>> new $next_role worker starting...\n";
with "Netdisco::Daemon::Worker::$next_role";
with "App::Netdisco::Daemon::Worker::$next_role";
$gd->worker_begin if $gd->can('worker_begin');
$gd->worker_body;
$gd->worker_end if $gd->can('worker_end');

View File

@@ -1,7 +1,8 @@
#!/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';

View File

@@ -1,5 +1,9 @@
#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use App::Netdisco;
use Dancer;
use Netdisco::Web;
use App::Netdisco::Web;
dance;