root/lang/perl/Chaostr/trunk/lib/Chaostr/Web/Base/Controller.pm

package Chaostr::Web::Base::Controller;

use strict;
use warnings;
use base 'Catalyst::Controller::Resource';
use Catalyst::Utils;


# __PACKAGE__->config(
#     collection => {
#         list        => { method => 'GET',  path => '' },
#         create      => { method => 'POST', path => '' },
#         create_form => { method => 'GET',  path => 'new' },
#     },
#     member => {
#         show         => { method => 'GET',  path => '' },
#         update       => { method => 'POST', path => 'update' },
#         update_form  => { method => 'GET',  path => 'update' },
#         destroy      => { method => 'POST', path => 'delete' },
#         destroy_form => { method => 'GET',  path => 'delete' },
#         edit         => { method => 'GET',  path => 'edit' },
#         edit_form    => { method => 'GET',  path => 'edit' },
#     },
# );

sub setup_collection_actions {
    my $self = shift;

    my $maps = Catalyst::Utils::merge_hashes($self->{collection} || {}, {
        list      => { method => 'GET',  path => '' },
        do_create => { method => 'POST', path => '' },
        create    => { method => 'GET',  path => 'new' },
    });
    $self->setup_actions(collection => $maps);
}

sub setup_member_actions {
    my $self = shift;

    my $maps = Catalyst::Utils::merge_hashes($self->{member} || {}, {
        show       => { method => 'GET',  path => '' },
        do_update  => { method => 'POST', path => 'update' },
        update     => { method => 'GET',  path => 'update' },
        do_destroy => { method => 'POST', path => 'delete' },
        destroy    => { method => 'GET',  path => 'delete' },
    });
    $self->setup_actions(member => $maps);
}

1;