Catalyst-Plugin-CRUD

 view release on metacpan or  search on metacpan

lib/Catalyst/Controller/CRUD.pm  view on Meta::CPAN

If there is $c->stash->{update}->{error}, then it does not update already recoed.

Triggers:

 $self->call_trigger( 'update_check', $c, $hash );
 $self->call_trigger( 'update_after', $c, $model );

=cut

sub update {
    my ( $this, $c, $self ) = @_;

    # update already record
    if ( $c->req->param('btn_update') ) {
        my $model = $this->get_model( $c, $self, $c->req->param( $self->setting($c)->{primary} ) );
        if (defined $model) {
            # create hash from request parameters
            my $primary = $self->setting($c)->{primary};
            my $hash = {$primary => $model->$primary};
            foreach (@{ $self->setting($c)->{columns} }) {

lib/Catalyst/Helper/Model/CRUD.pm  view on Meta::CPAN

sub create : Local {
    my ( $self, $c ) = @_;
    $c->create($self);
}

sub read : Local {
    my ( $self, $c ) = @_;
    $c->read($self);
}

sub update : Local {
    my ( $self, $c ) = @_;
    $c->update($self);
}

sub delete : Local {
    my ( $self, $c ) = @_;
    $c->delete($self);
}

sub list : Local {

lib/Catalyst/Plugin/CRUD.pm  view on Meta::CPAN

    $cntl->read($c, $self);
}

=head2 update

Update action.
This method internally calls Catalyst::Controller::[CDBI|DBIC]::update.

=cut

sub update {
    my ( $c, $self ) = @_;
    my $type = $self->setting($c)->{type} || 'CDBI';
    my $cntl = "Catalyst::Controller::CRUD::" . $type;
    $cntl->update($c, $self);
}

=head2 delete

Delete action.
This method internally calls Catalyst::Controller::[CDBI|DBIC]::delete.

sample/TinyURL/lib/TinyURL/Controller/TinyUrl.pm  view on Meta::CPAN

sub create : Local {
    my ( $self, $c ) = @_;
    $c->create($self);
}

#sub read : Local {
#    my ( $self, $c ) = @_;
#    $c->read($self);
#}

#sub update : Local {
#    my ( $self, $c ) = @_;
#    $c->update($self);
#}

#sub delete : Local {
#    my ( $self, $c ) = @_;
#    $c->delete($self);
#}

sub list : Local {

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