CatalystX::CRUD::Test::Controller - mock controller class for testing CatalystX::CRUD packages
package MyApp::Controller::Foo; use strict; use base qw( CatalystX::CRUD::Test::Controller ); use MyForm; __PACKAGE__->config( form_class => 'MyForm', form_fields => [qw( one two three )], init_form => 'init_with_foo', init_object => 'foo_from_form', default_template => 'no/such/file', model_name => 'Foo', primary_key => 'id', view_on_single_result => 0, page_size => 50, allow_GET_writes => 0, ); 1;
CatalystX::CRUD::Test::Controller is a mock controller class for testing CatalystX::CRUD packages. It implements the required Controller methods and overrides others to work with CatalystX::CRUD::Test::Form.
The flow of this methods comes more or less verbatim from the RHTMLO controller.
Returns the object from stash() initialized with the form and request params.
Returns a new
form_class object every time, initialized with
If the stash() has an 'object' defined, serializes the object with serialize_object() and sticks it in the response body().
If there are any errors, replaces the normal Catalyst debug screen with contents of $c->error.
Serializes object for response. Default is just to create hashref of key/value pairs and send through Data::Dump::dump().
<perl at peknet.com>
Please report any bugs or feature requests to
bug-catalystx-crud at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CatalystX-CRUD. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
You can also look for information at:
Copyright 2008 Peter Karman, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.