Skip to content
Snippets Groups Projects
Commit 6037ba5e authored by Guillaume ROUSSE's avatar Guillaume ROUSSE
Browse files

fix database initialisation

parent add6edb6
Branches
Tags
No related merge requests found
......@@ -16,6 +16,7 @@ use Pod::Usage;
use Syntax::Keyword::Try;
use AccessCheck::Data::Account;
use AccessCheck::Data::DB;
use AccessCheck::Data::Entity;
use AccessCheck::Data::Token;
use AccessCheck::Metadata;
......@@ -51,7 +52,7 @@ if (!$configuration) {
die Config::Tiny->errstr() . "\n";
}
AccessCheck::DB->register_db(
AccessCheck::Data::DB->register_db(
driver => $configuration->{database}->{type},
database => $configuration->{database}->{name},
host => $configuration->{database}->{host},
......@@ -64,7 +65,7 @@ AccessCheck::DB->register_db(
]
);
my $db = AccessCheck::DB->new();
my $db = AccessCheck::Data::DB->new();
SWITCH: {
if ($action eq 'add_account') { add_account(); last SWITCH; }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment