Mercurial > pub > Impl
view Lib/Form/Transform.pm @ 16:75d55f4ee263
Окончательная концепция описания схем и построения DOM документов
author | Sergey |
---|---|
date | Tue, 08 Sep 2009 17:29:07 +0400 |
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;