view release on metacpan or  search on metacpan

lib/MySQL/Util/CLI/Exec.pm  view on Meta::CPAN

package MySQL::Util::CLI::Exec;
$MySQL::Util::CLI::Exec::VERSION = '0.002';
=head1 NAME

MySQL::Util::CLI::Exec

=head1 VERSION

version 0.002

=cut

use Modern::Perl;
use Moose;
use Kavorka '-all';
use namespace::autoclean;
use Data::Printer alias => 'pdump';
use MySQL::Util::CLI;
use Text::ASCIITable;
use Carp;

with 'Util::Medley::Roles::Attributes::List';

##############################################################################
# PUBLIC ATTRIBUTES
##############################################################################

has user => (
	is  => 'rw',
	isa => 'Str',
);

has pass => (
	is  => 'rw',
	isa => 'Str',
);

has host => (
	is  => 'rw',
	isa => 'Str',
);

has port => (
	is  => 'rw',
	isa => 'Str',
);

has dbName => (
	is  => 'rw',
	isa => 'Str',
);

has dryRun => (
	is      => 'rw',
	isa     => 'Bool',
	default => 0,
);

##############################################################################
# PRIVATE_ATTRIBUTES
##############################################################################

##############################################################################
# PUBLIC METHODS
##############################################################################

method showDatabases {

	my $cli = $self->_getMysqlUtilCli;
	my @dbs = $cli->getDatabases;

	my $t = Text::ASCIITable->new;
	$t->setCols('DATABASES');