[catagits/CatalystX-DynamicComponent.git] / lib / DynamicAppDemo / Controller / FakeExample.pm

package DynamicAppDemo::Controller::FakeExample;
use Moose;
use namespace::autoclean;

BEGIN { extends 'DynamicAppDemo::ControllerBase' }

# This is a fake controller.

# It exists to show an example of using ::ControllerBase which is autogenerated,
# which helps me seperate the building and testing of the controller action
# registration functionality, seperate the the code generation :)

sub register_me { 
    my ($self, $c) = @_;
    $c->res->body('quux');
    $c->res->header('X-Foo', 'bar');
}

sub _do_not_register_me { }

# In a non-trivial example, you would use MX::Method::Sigs :)

__PACKAGE__->meta->make_immutable;
Commit	Line	Data
b14364e6	1	package DynamicAppDemo::Controller::FakeExample;
b14364e6	2	use Moose;
046d763d	3	use namespace::autoclean;
b14364e6	4
	5	BEGIN { extends 'DynamicAppDemo::ControllerBase' }
	6
	7	# This is a fake controller.
	8
	9	# It exists to show an example of using ::ControllerBase which is autogenerated,
	10	# which helps me seperate the building and testing of the controller action
	11	# registration functionality, seperate the the code generation :)
	12
	13	sub register_me {
	14	my ($self, $c) = @_;
	15	$c->res->body('quux');
	16	$c->res->header('X-Foo', 'bar');
	17	}
	18
	19	sub _do_not_register_me { }
	20
	21	# In a non-trivial example, you would use MX::Method::Sigs :)
	22
	23	__PACKAGE__->meta->make_immutable;
	24