File Coverage

blib/lib/Form/Processor/Field/DateTimeDMYHM2.pm

Criterion	Covered	Total	%
statement	21	48	43.7
branch	1	8	12.5
condition	0	2	0.0
subroutine	6	11	54.5
pod	6	6	100.0
total	34	75	45.3

package Form::Processor::Field::DateTimeDMYHM2;
$Form::Processor::Field::DateTimeDMYHM2::VERSION = '1.162360';
use strict;
use warnings;
use base 'Form::Processor::Field';
use Form::Processor;
use DateTime;


# This implements a field made up of sub fields.

sub init_widget {'Compound'}


# This is to keep from reporting missing field
# for required fields.  Any missing data errors will propogate up.
sub any_input {1}


# Create a sub-form that contains the fields that make up this compound field.
sub init {
    my $self = shift;

    $self->SUPER::init( @_ );

    my $name = $self->name;

    my $required = $self->required ? 'required' : 'optional';

    $self->sub_form(
        Form::Processor->new(
            parent_field => $self,    # send all errors to parent field.
            profile      => {
                optional => {
                    day    => 'MonthDay',
                    month  => 'MonthName',
                    year   => 'Year',
                    hour   => 'Hour',
                    minute => 'Minute',
                },
            },
            )
    );

    return;
}



sub validate {
    my $self = shift;

    return unless $self->SUPER::validate;

    my $form = $self->sub_form;

    # First validate the sub fields, passing in the original parameters
    return unless $form->validate( scalar $self->form->params );


    # This probably should be done in input_to_value()
    my %date = map { $_ => $form->field( $_ )->value } qw/ day month year hour minute /;

    my $dt;
    eval { $dt = DateTime->new( %date, time_zone => 'floating' ) };

    if ( $@ ) {
        my $error = $@;
        $error =~ s! at /.+$!!;    # ! vim
        $self->add_error( "Invalid date [_1]", "$error" );
        return;
    }

    $self->temp( $dt );

    return 1;
}

sub input_to_value {
    my $field = shift;
    $field->value( $field->temp );
}

sub format_value {
    my $self = shift;


    my $name = $self->name;

    my %hash;

    my $dt = $self->value || return ();


    for my $sub ( qw/ month day year hour minute / ) {

        $hash{ $name . '.' . $sub } = $dt->$sub;
    }

    return %hash;
}


# ABSTRACT: DEPRECATED example of a sub-form



1;

__END__