Yet Another CPAN Grep

App-AltSQL ( E/EW/EWATERS/App-AltSQL-0.05.tar.gz, EWATERS, 2012; MetaCPAN )

App-AltSQL/lib/App/AltSQL/Plugin/Dump/Format/json.pm ( view source; MetaCPAN )

in::Dump::Format::json;

use Moose::Role;
use JSON;

sub format {
    my ($self, %params) = @_;
    my $data = $self->_convert_to_array_of_hashes($params{table_data});
    return JSON->new->encode($da

App-AltSQL ( E/EW/EWATERS/App-AltSQL-0.05.tar.gz, EWATERS, 2012; MetaCPAN )

App-AltSQL/lib/App/AltSQL/Plugin/Dump.pm ( view source; MetaCPAN )

:Dump::Format;

=head1 Name

Dump AltSQL Plugin

=head1 Synopsis

Usage:

 .dump <file>.[csv|html|json|pl|pm|sql|xls|xml|yaml|yml] <query>;

=head1 Description

This plugin will allow you to dump out

</td><td>Pie</td></tr><tr><td>3</td><td>Cow</td></tr></table>

=end html

JSON:

 .dump out.json select * from users;

out.json:

 [{"name":"Moo","id":"1"},{"name":"Pie","id":"2"},{"name":"Cow","id":"

or("Usage: .dump \$filename \$sql");
        $self->log_error("Available formats: csv, xls, html, json, [pl|pm], sql, xml, [yml|yaml]");

        return 1; # handled, won't run this as a query
    }

App-AltSQL ( E/EW/EWATERS/App-AltSQL-0.05.tar.gz, EWATERS, 2012; MetaCPAN )

App-AltSQL/lib/App/AltSQL/Term.pm ( view source; MetaCPAN )

ckage 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';

		return;
	}

	open my $out, '>', $fn or die "Can't open $fn for writing: $!";
	print $out encode_json({ history => [ $self->term->GetHistory ] });
	close $out;
}

sub read_history {
	my ($self, $fn)

";
	local $\ = undef;
	my $data = <$in>;
	close $in;

	my @history;
	eval {
		my $parsed = decode_json($data);
		@history = @{ $parsed->{history} };
	};
	if (my $exception = $@) {
		$self->log_error("