File Coverage

blib/lib/Form/Processor/Model.pm

Criterion	Covered	Total	%
statement	23	32	71.8
branch	0	4	0.0
condition			n/a
subroutine	10	14	71.4
pod	6	7	85.7
total	39	57	68.4

package Form::Processor::Model;
$Form::Processor::Model::VERSION = '1.162360';
use strict;
use warnings;
use base 'Rose::Object';
use Carp;
use Data::Dumper;
use Scalar::Util qw/ blessed /;


# Define instance data

use Rose::Object::MakeMethods::Generic (

    scalar => [
        object_class => { interface => 'get_set_init' },

        #item_id         => {},  # Can't init from item->id because of circular references
        item => { interface => 'get_set_init' },
    ],
);

# ABSTRACT: default model base class



sub init_object_class {
    my $self = shift;
    my $item = $self->item;
    return ref $item;    # may be undefined
}




sub init_item {return}



sub guess_field_type { Carp::confess "Don't know how to determine field type of [$_[1]]" }



sub lookup_options {return}




sub init_value {
    my ( $self, $field, $item ) = @_;
    my $name = $field->name;

    return $item->can( $name ) ? $item->$name : undef
        if blessed( $item );


    return $item->{$name};

}


sub update_from_form {
    die "must define 'update_from_form' in Form::Processor::Model subclass";
}





sub model_validate { }





1;

__END__