File Coverage

blib/lib/Data/MuForm/Field/Time.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	6	12	50.0
condition	6	17	35.2
subroutine	2	3	66.6
pod	1	2	50.0
total	30	60	50.0

package Data::MuForm::Field::Time;
# ABSTRACT: Time field
use Moo;
extends 'Data::MuForm::Field::Text';


has 'use_seconds' => ( is => 'rw', default => 0 );
has 'twelve_hour_clock' => ( is => 'rw', default => 0 );

our $class_messages = {
    'time_format' => 'Invalid format for time',
};

sub get_class_messages  {
    my $self = shift;
    return {
        %{ $self->next::method },
        %$class_messages,
    }
}

sub validate {
  my $self = shift;

  my $value = $self->value;
  my $hour;
  my $minutes;
  my $seconds;
  if ( $value =~ /:/ ) {
    ($hour, $minutes, $seconds) = split(':', $value);
  }
  else {
    $hour = $value;
    $minutes = 0;
    $seconds = 0;
  }
  $seconds //= 0;
  my $max_hours = $self->twelve_hour_clock ? 12 : 24;
  unless ( defined $hour && $hour >= 0 && $hour <= $max_hours ) {
    $self->add_error($self->get_message('time_format'));
  }
  unless ( defined $minutes && $minutes >= 0 && $minutes < 60 ) {
    $self->add_error($self->get_message('time_format'));
  }
  unless ( $seconds >= 0 && $seconds < 60 ) {
    $self->add_error($self->get_message('time_format'));
  }

  if ( $self->use_seconds ) {
    $self->value(sprintf('%02d:%02d:%02d', $hour, $minutes, $seconds));
  }
  else {
    $self->value(sprintf('%02d:%02d', $hour, $minutes));
  }

}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Data::MuForm::Field::Time - Time field

=head1 VERSION

version 0.04

=head1 DESCRIPTION

A 'Time' field;

=head1 NAME

Data::MuForm::Field::Time

=head1 AUTHOR

Gerda Shank

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Gerda Shank.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut