Yet Another CPAN Grep

Test-DBIC-Versioned ( S/SP/SPUDSOUP/Test-DBIC-Versioned-0.02.tar.gz, SPUDSOUP, 2014; MetaCPAN )

Test-DBIC-Versioned/lib/Test/DBIC/Versioned.pm ( view source; MetaCPAN )

es) on each table. The structure is intended to be
passed to is_deeply for comparison.

=cut

use JSON;    # Used to convert perl data to a string.
use Moose;
use MooseX::StrictConstructor;

=head1 FI

   isa        => 'Ref',
    lazy_build => 1,
);

has _json_engine => (
    is      => 'ro',
    isa     => 'JSON',
    default => sub { return JSON->new->pretty(1) }
);

=head1 LICENSE AND COPYRIGHT

Test-DBIC-Versioned ( S/SP/SPUDSOUP/Test-DBIC-Versioned-0.02.tar.gz, SPUDSOUP, 2014; MetaCPAN )

Test-DBIC-Versioned/lib/Test/DBIC/Versioned/MySQL.pm ( view source; MetaCPAN )

my $self = shift;

    my $return_hash = {};
    my $dbh         = $self->dbh;
    my $json        = $self->_json_engine;

    # TODO: Use "show create table $table" here instead
    #       as people

tore as a json string so that differences are easy to
        # understand when they occur.
        my @colums = ();
        foreach my $name (@colum_names) {
            push @colums, $json->encode(