Mercurial > pub > Impl
view Lib/Form/Transform.pm @ 163:6ce1f052b90a
temp commit
author | wizard |
---|---|
date | Tue, 15 Mar 2011 02:32:42 +0300 |
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;