File Coverage

lib/SweetPea/Cli/Tool.pm

Criterion	Covered	Total	%
statement	21	59	35.5
branch	0	12	0.0
condition	0	3	0.0
subroutine	7	9	77.7
pod	0	2	0.0
total	28	85	32.9

package SweetPea::Cli::Tool;

use warnings;
use strict;

use SweetPea;
use SweetPea::Cli::Util;
use SweetPea::Cli::Flash;
use SweetPea::Cli::Error;
use SweetPea::Cli::Help;

# SweetPea::Cli::Tool - Misc tools for SweetPea-Cli

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;

    my $c = $self->{c} = shift;
    my $f = SweetPea::Cli::Flash->new;
    my $e = SweetPea::Cli::Error->new;

    $self->{commands} = [
        #{
        #    name => 'sqlc',
        #    code => sub {
        #        $self->sql_client(@_)
        #    },
        #    args => {
        #        'executable' => {
        #            aliases => ['e']
        #        }
        #    },
        #    help => 'launch the sql client for your database.'
        #}
        {

        }
    ];

    return $self;
}

sub sql_client {
    my $self = shift;
    my $c = shift;
    my $f = SweetPea::Cli::Flash->new;
    my $e = SweetPea::Cli::Error->new;
    my $u = SweetPea::Cli::Util->new;
    my $h = SweetPea::Cli::Help->new;
    my $s = SweetPea::Application::Config->new(
        SweetPea::Application->new,
        Cwd::getcwd
    );

    my $executables = {
        'DB2'       => '?',
        'Oracle'    => '?',
        'PostgrSQL' => 'psql -d db -u user -p pass',
        'MySQL'     => 'mysql -d db -u user -p pass',
        'SQLite'    => 'sqlite3 db',
        'SQLServer' => '?',
        'Sybase'    => ''
    };

    unless ( -d "./sweet/configuration" )
    {
        return $e->error('No application configured.',
        'Try `help make;` for instructions on creating an application.'
        )->report($c);
    }

    my $application = $s->get('/application');
    my $datastore   = $s->get('/datastores');
    my $store       = $application->{datastore};
    my $data        = $datastore->{datastores}->{$store};
    my $conn = $data->{dsn};
    my $user = $data->{username};
    my $pass = $data->{password};
    my ($scheme, $driver, @trash) = DBI->parse_dsn($conn);
    my $client = $executables->{$driver};

    unless ( -d "./sweet/configuration/datastores/$store/table" )
    {
        return $e->error('No database configured.',
        'Try `help data;` for instructions on configuring your datastores.'
        )->report($c);
    }

    if ($client && $client ne '?') {
        $client =~ s/ db/ $scheme/ if $scheme;
        $client =~ s/ user/ $user/ if $user;
        $client =~ s/ pass/ $pass/ if $pass;

        system($client);

        my @return = (
            'SQL client was invoked with `' . $client . '`',
            'Note! SQL client host and port parameters not supported.'
        );
        return $f->flash(@return)->report($c);
    }
    else {
        my @return = (
            'SQL client not recognized or is not yet supported.',
            'Note! Sql client host and port parameters not supported.'
        );
        return $e->error(@return)->report($c);
    }

}

1; # End of SweetPea::Cli::Tool