Catalyst::Helper::Controller::SingletonResource - Helper for Controller::SingletonResource

Catalyst-Controller-Resources documentation Contained in the Catalyst-Controller-Resources distribution.

Index

Code Index:

NAME

Top

Catalyst::Helper::Controller::SingletonResource - Helper for Controller::SingletonResource

SYNOPSIS

Top

    script/create.pl controller <ControllerName> SingletonResource [ BelongsToName ]

METHODS

Top

mk_complass

Makes a SingletonResource Controller class.

mk_comptest

Makes a SingletonResource Controller test.

AUTHOR

Top

NAKAGAWA Masaki <masaki@cpan.org>

LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

Catalyst::Controller::SingletonResource

Catalyst-Controller-Resources documentation Contained in the Catalyst-Controller-Resources distribution. 
package Catalyst::Helper::Controller::SingletonResource;

use strict;
use warnings;

sub mk_compclass {
    my ($self, $helper, $belongs_to) = @_;

    $helper->{belongs_to} = $belongs_to if $belongs_to;
    $helper->render_file('compclass', $helper->{file});
};

sub mk_comptest {
    my ($self, $helper) = @_;

    $helper->render_file('test', $helper->{test});
};


1;
__DATA__

__compclass__
package [% class %];

use strict;
use warnings;
use base 'Catalyst::Controller::SingletonResource';

[% IF belongs_to -%]
__PACKAGE__->config(belongs_to => '[% belongs_to %]');
[% END -%]


sub create {
    my ($self, $c[% IF belongs_to %], $parent_id[% END %]) = @_;
}


sub show {
    my ($self, $c[% IF belongs_to %], $parent_id[% END %]) = @_;
}


sub update {
    my ($self, $c[% IF belongs_to %], $parent_id[% END %]) = @_;
}


sub destroy {
    my ($self, $c[% IF belongs_to %], $parent_id[% END %]) = @_;
}


sub post {
    my ($self, $c[% IF belongs_to %], $parent_id[% END %]) = @_;
}


sub edit {
    my ($self, $c[% IF belongs_to %], $parent_id[% END %]) = @_;
}


1;

__test__
use strict;
use Test::More tests => 1;

use_ok('[% class %]');

__END__