Data-Mapper

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use warnings;
use Module::Build;

my $build = Module::Build->new(
    license              => 'perl',
    dynamic_config       => 0,

    build_requires       => {
        'Test::More'     => '0.98',
        'Test::Fatal'    => '0',
        'Test::Requires' => '0',
    },
    configure_requires   => { 'Module::Build' => '0.38' },
    requires             => {
        perl              => "5.008001",
        parent            => '0',
        'SQL::Maker'      => '1.00',
        'DBIx::Inspector' => '0.06',
        'Class::Load'     => '0',
    },

META.json  view on Meta::CPAN

   },
   "name" : "Data-Mapper",
   "no_index" : {
      "directory" : [
         "inc"
      ]
   },
   "prereqs" : {
      "build" : {
         "requires" : {
            "Test::Fatal" : 0,
            "Test::More" : "0.98",
            "Test::Requires" : 0
         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0.38"
         }
      },
      "runtime" : {

META.yml  view on Meta::CPAN

---
abstract: "An implementation of Data Mapper Pattern described in\nPofEAA"
author:
  - 'Kentaro Kuribayashi E<lt>kentarok@gmail.comE<gt>'
build_requires:
  Test::Fatal: 0
  Test::More: 0.98
  Test::Requires: 0
configure_requires:
  Module::Build: 0.38
dynamic_config: 0
generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version 2.112150'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4

t/adapter.t  view on Meta::CPAN

use t::lib::Utils;

use Test::More;
use Test::Fatal;

use Data::Mapper::Adapter;

subtest 'driver' => sub {
    my $adapter = Data::Mapper::Adapter->new;
    ok exception { $adapter->driver };

    $adapter->driver('some driver implementation');
    ok !exception { $adapter->driver };

t/adapter_dbi.t  view on Meta::CPAN

use t::lib::Utils;
use Test::Requires qw(DBI DBD::SQLite);

use Test::More;
use Test::Fatal;

use Data::Mapper::Adapter::DBI;

my $dbh = t::lib::Utils::dbh;
   $dbh->do('create table test (id integer primary key, value text)');

my $adapter = Data::Mapper::Adapter::DBI->new({ driver => $dbh });

subtest 'create' => sub {
    my $data = $adapter->create(test => { value => 'test create' });

t/data.t  view on Meta::CPAN

use t::lib::Utils;

use Test::More;
use Test::Fatal;

use Data::Mapper::Data;
use t::lib::Data::Mapper::Data::Test;

subtest 'table' => sub {
    plan skip_all => 'removed $data->table()';

    note 'subclassing';
    {
        my $data = t::lib::Data::Mapper::Data::Test->new;

t/mapper-popo.t  view on Meta::CPAN

use t::lib::Utils;
use Test::Requires qw(DBI DBD::SQLite);

use Test::More;
use Test::Fatal;

use t::lib::Data::Mapper;
use Data::Mapper::Adapter::DBI;

my $dbh = t::lib::Utils::dbh;
   $dbh->do('create table popo (id integer primary key, value text)');

my $adapter = Data::Mapper::Adapter::DBI->new({ driver => $dbh });
my $mapper  = t::lib::Data::Mapper->new({ adapter => $adapter });

t/mapper.t  view on Meta::CPAN

use t::lib::Utils;
use Test::Requires qw(DBI DBD::SQLite);

use Test::More;
use Test::Fatal;

use t::lib::Data::Mapper;
use t::lib::Another::Mapper;
use Data::Mapper::Adapter::DBI;

my $dbh = t::lib::Utils::dbh;
   $dbh->do('create table test (id integer primary key, value text)');

my $adapter = Data::Mapper::Adapter::DBI->new({ driver => $dbh });
my $mapper  = t::lib::Data::Mapper->new({ adapter => $adapter });