view Lib/Form/Transform.pm @ 56:117b6956d5a5

Web application in progress
author wizard
date Thu, 04 Mar 2010 15:46:17 +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;