view release on metacpan or  search on metacpan

lib/Model/Envoy.pm  view on Meta::CPAN

360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
}
 
sub save {
    my $self = shift;
 
    $self->_dispatch('save', @_ );
 
    return $self;
}
 
sub update {
    my ( $self, $hashref ) = @_;
 
    foreach my $attr ( grep { $_->get_write_method } $self->_get_all_attributes ) {
 
        my $name = $attr->name;
 
        if ( exists $hashref->{$name} ) {
 
            $self->$name( $hashref->{$name} );
        }

lib/Model/Envoy/Storage/DBIC.pm  view on Meta::CPAN

297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
                map  { $_ => $data->{$_} }
                grep { defined $data->{$_} } 
                keys %$data
            } );
 
            $model->get_storage('DBIC')->update_model($result);
        }
    }
}
 
sub update_model {
    my ( $self, $dbic_result ) = @_;
 
    $self->model->update( $self->_data_for_model( ref $self->model, $dbic_result ) );
}
 
sub delete {
    my ( $self ) = @_;
 
    if ( $self->_dbic_result->in_storage ) {
        $self->_dbic_result->delete;