DBIx-Deployer

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "DBD::SQLite" : "0",
            "DBI" : "0",
            "Data::Printer" : "0",
            "Digest::MD5" : "0",
            "JSON::XS" : "0",
            "Modern::Perl" : "0",
            "Moops" : "0",
            "Term::ANSIColor" : "0",
            "autodie" : "0",
            "perl" : "v5.14.2"
         }
      },
      "test" : {
         "requires" : {
            "Data::Dumper" : "0",
            "File::Temp" : "0",

META.yml  view on Meta::CPAN

    version: v1.2.3
  DBIx::Deployer::Patch:
    file: lib/DBIx/Deployer.pm
    version: v1.2.3
requires:
  DBD::SQLite: '0'
  DBI: '0'
  Data::Printer: '0'
  Digest::MD5: '0'
  JSON::XS: '0'
  Modern::Perl: '0'
  Moops: '0'
  Term::ANSIColor: '0'
  autodie: '0'
  perl: v5.14.2
resources:
  bugtracker: https://github.com/Camspi/DBIx-Deployer/issues
  homepage: https://github.com/Camspi/DBIx-Deployer
  repository: https://github.com/Camspi/DBIx-Deployer.git
version: v1.2.3
x_contributors:

Makefile.PL  view on Meta::CPAN

  "DISTNAME" => "DBIx-Deployer",
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.014002",
  "NAME" => "DBIx::Deployer",
  "PREREQ_PM" => {
    "DBD::SQLite" => 0,
    "DBI" => 0,
    "Data::Printer" => 0,
    "Digest::MD5" => 0,
    "JSON::XS" => 0,
    "Modern::Perl" => 0,
    "Moops" => 0,
    "Term::ANSIColor" => 0,
    "autodie" => 0
  },
  "TEST_REQUIRES" => {
    "Data::Dumper" => 0,
    "File::Temp" => 0,
    "FindBin" => 0,
    "Test::Exception" => 0,
    "Test::More" => 0,

t/deploy.t  view on Meta::CPAN

use Modern::Perl;
use Data::Dumper;
use Test::More;
use Test::Exception;
use FindBin;
use File::Temp;
use DBI;
use lib "$FindBin::Bin/../lib";

use DBIx::Deployer;

t/scripts/create_table_bar.pl  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;
use DBI;

my $db = DBI->connect('dbi:SQLite:' . $ARGV[0]);
$db->begin_work;
$db->do('CREATE TABLE bar (a,b) bad sql or something');
my $result = $db->selectall_arrayref('PRAGMA table_info(bar)');
if( eval { $result->[0]->[1] eq 'a' && $result->[1]->[1] eq 'b' } ) {
    $db->commit && exit 0;
}
else {

t/scripts/create_table_foo.pl  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;
use DBI;

my $db = DBI->connect('dbi:SQLite:' . $ARGV[0]);
$db->begin_work;
$db->do('CREATE TABLE foo(a,b)');
my $result = $db->selectall_arrayref('PRAGMA table_info(foo)');
if( eval { $result->[0]->[1] eq 'a' && $result->[1]->[1] eq 'b' } ) {
    $db->commit && exit 0;
}
else {

 view all matches for this distribution
 view release on metacpan -  search on metacpan