view release on metacpan or  search on metacpan

lib/Data/Morph/Backend/DBIC.pm  view on Meta::CPAN

$Data::Morph::Backend::DBIC::VERSION = '1.140400';
#ABSTRACT: Provides a Data::Morph backend for DBIx::Class

use Moose;
use Moose::Util::TypeConstraints;
use MooseX::Types::Moose(':all');
use MooseX::Params::Validate;
use Devel::PartialDump('dump');
use namespace::autoclean;
use DBIx::Class;
use Scalar::Util('weaken');


has result_set =>
(
    is => 'ro',
    isa => class_type('DBIx::Class::ResultSet'),
    required => 1,
);

lib/Data/Morph/Backend/DBIC.pm  view on Meta::CPAN

    is => 'ro',
    isa => CodeRef,
    lazy => 1,
    builder => '_build_new_instance',
);


sub _build_new_instance
{
    my ($self) = @_;
    weaken($self);
    return sub { $self->result_set->new_result({}) };
}


sub epilogue
{
    my ($self, $obj) = @_;

    $obj->update_or_insert
        if $self->auto_insert;