Peter Karman > CatalystX-CRUD > CatalystX::CRUD::Test::Form

Download:
CatalystX-CRUD-0.56.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Module Version: 0.56   Source  

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.

syntax highlighting: