Mercurial > pub > Impl
view Lib/Form/Transform.pm @ 104:196bf443b5e1
DOM::Schema RC0 inflators support, validation and some other things,
Minor and major fixes almost for everything.
A 'Source' property of the ValidationErrors generated from a NodeSet or a NodeList is subject to change in the future.
author | wizard |
---|---|
date | Tue, 11 May 2010 02:42:59 +0400 |
parents | 16ada169ca75 |
children | 76515373dac0 |
line wrap: on
line source
package Form::Transform; use strict; use warnings; use base qw(IMPL::Transform); sub CTOR { my ($this) = @_; $this->superCTOR( Templates => { 'Form::Container' => sub { my $this = shift; $this->TransformContainer(@_); }, 'Form' => sub { my $this = shift; $this->TransformContainer(@_); } }, Default => \&TransformItem ); } sub TransformContainer { my ($this,$container) = @_; } sub TransformItem { my ($this,$item) = @_; return $item->isEmpty ? undef : $item->Value; } 1;