The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
CatalystX-CRUD-0.56
River stage one • 8 direct dependents • 8 total dependents
1 ++
/ CatalystX::CRUD::Test::Form

NAME

CatalystX::CRUD::Test::Form - mock form class for testing CatalystX::CRUD packages

SYNOPSIS

 package MyApp::Form::Foo;
 use strict;
 use base qw( CatalystX::CRUD::Test::Form );
 
 sub foo_from_form {
     my $self = shift;
     return $self->SUPER::object_from_form(@_);
 }
 
 sub init_with_foo {
     my $self = shift;
     return $self->SUPER::init_with_object(@_);
 }
 
 1;

DESCRIPTION

CatalystX::CRUD::Test::Form is a mock form class for testing CatalystX::CRUD packages. The API is similar to Rose::HTML::Form, but implements very naive methods only.

METHODS

new( args )

Returns new object instance. args must be a hashref and must contain at least a key/value pair for fields.

fields( [ arrayref ] )

Get/set the arrayref of field names.

This must be set in new().

field_names

An alias for fields().

params( [ hashref ] )

Get/set the hashref of key/value pairs for the form object. The keys should be the names of form fields and should match the value of fields().

param( key => val )

Sets the key/value pair for a field. key should be the name of a field, as indicated by params().

init_fields

Placeholder only. Does nothing.

clear

Resets params() to an empty hashref.

validate

Does nothing. Always returns true.

init_with_object( object )

You should override this method in your subclass. Basically sets all accessors in form equal to the equivalent value in object.

Returns the Form object.

object_from_form( object )

You should override this method in your subclass. Basically sets all accessors in object equal to the equivalent value in form.

dump

Wrapper around Data::Dump::dump. Returns the form object serialized.

AUTHOR

Peter Karman, <perl at peknet.com>

BUGS

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.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc CatalystX::CRUD

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

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.