view Lib/Form/Transform.pm @ 57:bf59ee1cd506

Web application main class functionality
author wizard
date Fri, 05 Mar 2010 13:59:29 +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;