Mercurial > pub > Impl
view Lib/Form/Transform.pm @ 38:d660fb38b7cc
small fixes
ORM shema to SQL schema transformation
author | Sergey |
---|---|
date | Mon, 23 Nov 2009 17:57:07 +0300 |
parents | 03e58a454b20 |
children | 16ada169ca75 |
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;