From: Marius Gavrilescu 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; }