From: Marius Gavrilescu <marius@ieval.ro>
Date: Thu, 18 Jun 2015 17:07:38 +0000 (+0300)
Subject: Rename init to dbinit and export it
X-Git-Tag: 5999.000_014~14
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=6fb81f9a1055a50a04818371efe8143d3fc1ab04;p=gruntmaster-data.git

Rename init to dbinit and export it
---

diff --git a/lib/Gruntmaster/App.pm b/lib/Gruntmaster/App.pm
index f61d145..f206928 100644
--- a/lib/Gruntmaster/App.pm
+++ b/lib/Gruntmaster/App.pm
@@ -21,7 +21,7 @@ sub global_opt_spec {
 
 sub table { shift->global_options->{table} }
 
-Gruntmaster::Data::init $ENV{GRUNTMASTER_DSN} // 'dbi:Pg:';
+dbinit $ENV{GRUNTMASTER_DSN} // 'dbi:Pg:';
 
 1;
 __END__
diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index 1558e46..bcc0085 100644
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use parent qw/Exporter/;
 our $VERSION = '5999.000_013';
-our @EXPORT = qw/purge db user_list user_entry problem_list problem_entry contest_list contest_entry contest_has_problem job_list job_entry create_job standings update_status rerun_job take_job finish_job/; ## no critic (ProhibitAutomaticExportation)
+our @EXPORT = qw/dbinit purge db user_list user_entry problem_list problem_entry contest_list contest_entry contest_has_problem job_list job_entry create_job standings update_status rerun_job take_job finish_job/; ## no critic (ProhibitAutomaticExportation)
 
 use JSON::MaybeXS qw/decode_json/;
 use HTTP::Tiny;
@@ -42,7 +42,7 @@ my %statements = (
 our $db;
 sub db () { $db }
 
-sub init {
+sub dbinit {
 	$db = DBIx::Simple->new(@_);
 	$db->keep_statements = 100;
 };
diff --git a/t/Gruntmaster-Data.t b/t/Gruntmaster-Data.t
index 6d381ea..ff39701 100644
--- a/t/Gruntmaster-Data.t
+++ b/t/Gruntmaster-Data.t
@@ -8,7 +8,7 @@ use Test::More;
 
 BEGIN {
 	eval {
-		Gruntmaster::Data::init 'dbi:Pg:dbname=gmtest'; 1;
+		dbinit 'dbi:Pg:dbname=gmtest'; 1;
 	} or plan skip_all => 'Cannot connect to test database. Create it by running createdb gmtest before running this test. '. "Error: $@";
 	plan tests => 33;
 }
diff --git a/t/tools.t b/t/tools.t
index f871ad0..59ed755 100644
--- a/t/tools.t
+++ b/t/tools.t
@@ -8,7 +8,7 @@ use App::Cmd::Tester;
 
 BEGIN {
 	eval {
-		Gruntmaster::Data::init 'dbi:Pg:dbname=gmtest'; 1;
+		dbinit 'dbi:Pg:dbname=gmtest'; 1;
 	} or plan skip_all => 'Cannot connect to test database. Create it by running make_test_db.sh before running this test. '. "Error: $@";
 	plan tests => 30;
 }