App-AltSQL

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

		'Params::Validate' => 0,
		'DBI'              => 0,
		'DBD::mysql'       => 0,
		'Text::CharWidth'  => 0,
		'Text::UnicodeBox' => 0.03,
		'Term::ANSIColor'  => 0.04,
		'Term::ReadLine::Zoid' => 0,
		'Sys::SigAction'   => 0,
		'Hash::Union'      => 0,
		'Getopt::Long'     => 2.38,
 		'Data::Dumper'     => 0,
		'Config::Any'      => 0,
		'JSON'             => 0,
 		'YAML'             => 0,
	},
	suggests => {
		'DateTime'         => 0,
		'JSON::XS'         => 0,
		'DBIx::MyParsePP'  => 0,
		'Text::ASCIITable' => 0,
	},

META.json  view on Meta::CPAN

      "configure" : {
         "requires" : {
            "Module::Build" : "0.4"
         }
      },
      "runtime" : {
         "requires" : {
            "Config::Any" : "0",
            "DBD::mysql" : "0",
            "DBI" : "0",
            "Data::Dumper" : "0",
            "Getopt::Long" : "2.38",
            "Hash::Union" : "0",
            "JSON" : "0",
            "Moose" : "0",
            "MooseX::Object::Pluggable" : "0",
            "Params::Validate" : "0",
            "Sys::SigAction" : "0",
            "Term::ANSIColor" : "0.04",
            "Term::ReadLine::Zoid" : "0",
            "Text::CharWidth" : "0",

META.yml  view on Meta::CPAN

  App::AltSQL::View::Plugin::UnicodeBox:
    file: lib/App/AltSQL/View/Plugin/UnicodeBox.pm
    version: 0
  App::AltSQL::View::Plugin::VerticalSorted:
    file: lib/App/AltSQL/View/Plugin/VerticalSorted.pm
    version: 0
requires:
  Config::Any: 0
  DBD::mysql: 0
  DBI: 0
  Data::Dumper: 0
  Getopt::Long: 2.38
  Hash::Union: 0
  JSON: 0
  Moose: 0
  MooseX::Object::Pluggable: 0
  Params::Validate: 0
  Sys::SigAction: 0
  Term::ANSIColor: 0.04
  Term::ReadLine::Zoid: 0
  Text::CharWidth: 0

lib/App/AltSQL.pm  view on Meta::CPAN

=head1 EXTENDING

As mentioned above, one key point of this project is to make it easy for people to extend.  For this reason, I've built it on L<Moose> and offer a L<MooseX::Object::Pluggable> interface.  If you extend C<App::AltSQL>, you may want to know about the f...

=cut

use Moose;
use Getopt::Long qw(GetOptionsFromArray);
use Params::Validate;
use Data::Dumper;
use Config::Any;
use Hash::Union qw(union);

our $VERSION = 0.05;
our $| = 1;

# Don't emit 'Wide character in output' warnings
binmode STDOUT, ':utf8';

with 'MooseX::Object::Pluggable';

lib/App/AltSQL/Plugin/Dump/Format/perl.pm  view on Meta::CPAN

package App::AltSQL::Plugin::Dump::Format::perl;

use Moose::Role;
use Data::Dumper;

sub format {
    my ($self, %params) = @_;

    $Data::Dumper::Sortkeys = 1;

    my $data = $self->_convert_to_array_of_hashes($params{table_data});

    return Dumper($data);
}

1;

lib/App/AltSQL/Term.pm  view on Meta::CPAN

package App::AltSQL::Term;

use Moose;
use Term::ReadLine::Zoid;
use Data::Dumper;
use JSON qw(encode_json decode_json);
use Term::ANSIColor;

with 'App::AltSQL::Role';
with 'MooseX::Object::Pluggable';

has 'term' => (
	is         => 'ro',
	lazy_build => 1,
);

lib/App/AltSQL/View.pm  view on Meta::CPAN

App::AltSQL::View

=head1 DESCRIPTION

This is an internal class used by L<App::AltSQL> to capture the output of a DBI statement handler and express it to the user somehow.  It does this mainly with L<Text::UnicodeBox::Table>, and is currently MySQL specific.

=cut

use Moose;
use Data::Dumper;
use Text::CharWidth qw(mbswidth);
use Time::HiRes qw(gettimeofday);
use Params::Validate;
use List::Util qw(sum max);

with 'App::AltSQL::Role';
with 'MooseX::Object::Pluggable';

has 'timing' => ( is => 'rw' );
has 'verb'   => ( is => 'rw' );