Otogiri-Plugin-TableInfo

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "List::MoreUtils" : "0",
            "Otogiri" : "0.06",
            "Otogiri::Plugin" : "0.02",
            "parent" : "0",
            "perl" : "5.008005"
         }
      },
      "test" : {
         "requires" : {
            "DBD::SQLite" : "0",
            "Test::Differences" : "0",
            "Test::More" : "0",
            "Test::Requires" : "0"
         }
      }
   },
   "provides" : {
      "Otogiri::Plugin::TableInfo" : {
         "file" : "lib/Otogiri/Plugin/TableInfo.pm",
         "version" : "0.04"
      },

META.yml  view on Meta::CPAN

---
abstract: 'retrieve table information from database'
author:
  - 'Takuya Tsuchida <tsucchi@cpan.org>'
build_requires:
  DBD::SQLite: '0'
  Test::Differences: '0'
  Test::More: '0'
  Test::Requires: '0'
configure_requires:
  CPAN::Meta: '0'
  CPAN::Meta::Prereqs: '0'
  Module::Build: '0.38'
dynamic_config: 0
generated_by: 'Minilla/v2.1.1, CPAN::Meta::Converter version 2.141170'
license: perl
meta-spec:

cpanfile  view on Meta::CPAN

requires 'perl', '5.008005';
requires 'parent';

on configure => sub {
    requires 'CPAN::Meta';
    requires 'CPAN::Meta::Prereqs';
    requires 'Module::Build';
};

on test => sub {
    requires 'Test::Differences';
    requires 'Test::More';
    requires 'Test::Requires';
    requires 'DBD::SQLite';
};

on develop => sub {
    requires 'Test::mysqld';
    requires 'Test::PostgreSQL';
};

eg/compare.t  view on Meta::CPAN

# vi eg/config.pl
# ...(edit config to connect your DB)
# prove -l eg/compare.t
#
# NOTE: to set password for pg_dump, use .pgpass file

use Test::More;
use List::MoreUtils qw(any);
use DBI;
use t::Util;
use Test::Differences;
unified_diff;

use Otogiri;
use Otogiri::Plugin;
Otogiri->load_plugin('TableInfo');

my $config = do("eg/config.pl") or die "can't read config: $!";

my $db = Otogiri->new( connect_info => $config->{connect_info} );

t/03_pg.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use DBI;
use Otogiri;
use Otogiri::Plugin;
use Test::Differences;
unified_diff;

use t::Util;
use Test::Requires 'Test::PostgreSQL';



my $pg = Test::PostgreSQL->new(
    my_cnf => {
        'skip-networking' => '',