So this is really weird,
I am trying to use DBIx::Class::Validation and it never seems to run at
all! (that is, the filters don't get run and defaults don't get set)
Also, if I use any of the closures (not commented out code) I get a compile
time error. Does anyone see anything wrong with the following code?
> package ACD::Schema::Result::CustomerContact;
> use base DBIx::Class;
> use strict;
> use warnings;
> use Method::Signatures::Simple;
> use CLASS;
>
> CLASS->load_components(qw/Validation InflateColumn::Capitalize Core/);
>
> CLASS->table('CustomerContacts');
>
> CLASS->add_columns(qw/
> id
> customer_id
> first_name
> last_name
> phone
> fax
> email
> is_repair
> is_accounts_payable
> /);
>
>
> CLASS->add_columns(
> first_name => {
> capitalization => 'title_case'
> },
> last_name => {
> capitalization => 'title_case'
> },
> );
>
> CLASS->set_primary_key('id');
>
> CLASS->belongs_to('customer' => 'ACD::Schema::Result::Customer',
> 'customer_id');
> CLASS->has_many('workorders' => 'ACD::Schema::Result::WorkOrder',
> 'contact_id');
>
> use Data::FormValidator::Constraints qw(:closures);
> CLASS->validation(
> module => 'Data::FormValidator',
> profile => {
> defaults => {
> is_repair => 0,
> is_accounts_payable => 0,
> },
> constraint_methods => {
> #email => email(),
> #first_name => FV_min_length(1),
> #last_name => FV_min_length(1),
> },
> filters => ['trim'],
> optional => [qw{
> first_name
> last_name
> email
> phone
> fax
> is_repair
> is_accounts_payable
> }],
> missing_optional_valid => 1,
> },
> filters => 1,
> auto => 1,
> );
>
> 1;
>
--
fREW Schmidt
http://blog.afoolishmanifesto.com
_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[email protected]
