gistfile1.perl

sub processPropertiesFromFormPost {
    my $self = shift;

    my $form = $self->session->form;
    foreach my $property_name ($self->getProperties) {
        my $property = $self->meta->find_attribute_by_name($property_name);
        my $value    = $form->process(
            $property_name,
            $property->form->{fieldType},
            $self->$property_name,
        );
        $self->$property_name($value);
    }
    $self->write;
}