view Lib/Form/Transform.pm @ 79:2d1c3f713280

ORM concept in development
author wizard
date Mon, 05 Apr 2010 00:20:34 +0400
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;