view release on metacpan or  search on metacpan

lib/DBIx/NinjaORM.pm  view on Meta::CPAN

1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
                {
                        placeholders => [ 'edits = edits + ?' ],
                        values       => [ 1 ],
                }
        );
 
=back
 
=cut
 
sub update ## no critic (Subroutines::RequireArgUnpacking)
{
        croak 'The first argument passed must be a hashref'
                if !Data::Validate::Type::is_hashref( $_[1] );
 
        my ( $self, $data, %args ) = @_;
 
        # Allow using a different DB handle.
        my $dbh = $self->assert_dbh( $args{'dbh'} );
 
        # Clean input

t/415-commit.t  view on Meta::CPAN

169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
{
        my ( $self, $data ) = @_;
 
        return
        {
                action => 'insert',
                data   => $data,
        };
}
 
sub update
{
        my ( $self, $data ) = @_;
 
        return
        {
                action => 'update',
                data   => $data,
        };
}