File Coverage

blib/lib/Mo/utils/Time.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	20	20	100.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	2	2	100.0
total	74	74	100.0

package Mo::utils::Time;

use base qw(Exporter);
use strict;
use warnings;

use Error::Pure qw(err);
use Readonly;

Readonly::Array our @EXPORT_OK => qw(check_time_24hhmm check_time_24hhmmss);

our $VERSION = 0.01;

sub check_time_24hhmm {
	my ($self, $key) = @_;

	_check_key($self, $key) && return;

	if ($self->{$key} !~ m/^(\d{2})\:(\d{2})$/ms) {
		err "Parameter '".$key."' doesn't contain valid time in HH:MM format.",
			'Value', $self->{$key},
		;
	}
	my ($hour, $min) = ($1, $2);
	if ($hour > 23) {
		err "Parameter '".$key."' doesn't contain valid hour in HH:MM time format.",
			'Value', $self->{$key},
		;
	}
	if ($min > 59) {
		err "Parameter '".$key."' doesn't contain valid minute in HH:MM time format.",
			'Value', $self->{$key},
		;
	}

	return;
}

sub check_time_24hhmmss {
	my ($self, $key) = @_;

	_check_key($self, $key) && return;

	if ($self->{$key} !~ m/^(\d{2})\:(\d{2})\:(\d{2})$/ms) {
		err "Parameter '".$key."' doesn't contain valid time in HH:MM:SS format.",
			'Value', $self->{$key},
		;
	}
	my ($hour, $min, $sec) = ($1, $2, $3);
	if ($hour > 23) {
		err "Parameter '".$key."' doesn't contain valid hour in HH:MM:SS time format.",
			'Value', $self->{$key},
		;
	}
	if ($min > 59) {
		err "Parameter '".$key."' doesn't contain valid minute in HH:MM:SS time format.",
			'Value', $self->{$key},
		;
	}
	if ($sec > 59) {
		err "Parameter '".$key."' doesn't contain valid second in HH:MM:SS time format.",
			'Value', $self->{$key},
		;
	}

	return;
}

sub _check_key {
	my ($self, $key) = @_;

	if (! exists $self->{$key} || ! defined $self->{$key}) {
		return 1;
	}

	return 0;
}

1;

__END__