File Coverage

lib/App/I18N/Command/Initdb.pm

Criterion	Covered	Total	%
statement	39	51	76.4
branch	0	4	0.0
condition	0	2	0.0
subroutine	13	15	86.6
pod	0	2	0.0
total	52	74	70.2

package App::I18N::Command::Initdb;
use warnings;
use strict;
use Cwd;
use App::I18N::Config;
use App::I18N::Logger;
use File::Basename;
use File::Path qw(mkpath);
use File::Find::Rule;
use Locale::Maketext::Extract;
use base qw(App::I18N::Command);
use App::I18N::DB;
use DBI;
use DBD::SQLite;


sub options { (

    ) }

sub run {
    my ($self,$dbname) = @_;

    $dbname ||= 'i18n.sqlite';
    my $dbpath = File::Spec->join(  $ENV{HOME} ,  $dbname );

    if ( -e $dbpath ) {
        my $ans = $self->prompt( "Database $dbname exists, replace it ? (N/y)", 'n');
        return if( $ans =~ /n/i );
    }
    unlink( $dbpath );

    my $db = App::I18N::DB->new( path => $dbpath  );
    $db->init_schema();

    $db->close();
    print "Database $dbname ($dbpath) created.\n";
}


1;