e99f5ee410
This fixes many glitches with the schema deployment: - silently ignoring real failure modes such as user not having correct permissions on the DB - a couple of broken upgrade steps - adds --reset so schema can be fully redeployed
31 lines
651 B
Perl
31 lines
651 B
Perl
use utf8;
|
|
package App::Netdisco::DB;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use base 'DBIx::Class::Schema';
|
|
|
|
__PACKAGE__->load_namespaces(
|
|
default_resultset_class => 'ResultSet',
|
|
);
|
|
|
|
our # try to hide from kwalitee
|
|
$VERSION = 40; # schema version used for upgrades, keep as integer
|
|
|
|
use Path::Class;
|
|
use File::Basename;
|
|
|
|
my (undef, $libpath, undef) = fileparse( $INC{ 'App/Netdisco/DB.pm' } );
|
|
our $schema_versions_dir = Path::Class::Dir->new($libpath)
|
|
->subdir("DB", "schema_versions")->stringify;
|
|
|
|
__PACKAGE__->load_components(qw/
|
|
Schema::Versioned
|
|
+App::Netdisco::DB::ExplicitLocking
|
|
/);
|
|
|
|
__PACKAGE__->upgrade_directory($schema_versions_dir);
|
|
|
|
1;
|