File Coverage

blib/lib/XML/SRS/Time.pm

Criterion	Covered	Total	%
statement	2	4	50.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	4	6	66.6

package XML::SRS::Time;
BEGIN {
  $XML::SRS::Time::VERSION = '0.09';
}

use Moose::Role;
use PRANG::Graph;
use Moose::Util::TypeConstraints;
use MooseX::Params::Validate;

BEGIN{
	subtype 'XML::SRS::Time::Hour'
		=> as "Int",
		=> where {
		$_ >= 0 and $_ <= 23;
		};
	subtype 'XML::SRS::Time::Sexagesimal'
		=> as "Int",
		=> where {
		$_ >= 0 and $_ <= 59;
		};
	subtype 'XML::SRS::Time::TZOffset'
		=> as "Str",
		=> where {
		m{^[-+][\s\d]?\d(?::?\d\d)?$};

		};

	subtype 'XML::SRS::Time::hms'
		=> as "Str",
		=> where {
		m{^(\d{1,2}):(\d{1,2}):(\d{1,2})$};
		};
}

sub buildargs_time {
      my $inc = shift;
      my ( $hms, $offset ) = pos_validated_list(
          \@_,
          { isa => 'XML::SRS::Time::hms' },
          { isa => 'Maybe[XML::SRS::Time::TZOffset]', optional => 1 },
      );

	my @buildargs;
	if (defined $offset) {
		push @buildargs, tz_offset => $offset;
	}
	my ($h, $m, $s) = split ":", $hms;
	push @buildargs, hour => $h, minute => $m, second => $s;
	@buildargs;
}

has_attr 'hour' =>
	is => "rw",
	isa => "XML::SRS::Time::Sexagesimal",
	required => 1,
	xml_name => "Hour",
	;

has_attr 'minute' =>
	is => "rw",
	isa => "XML::SRS::Time::Sexagesimal",
	required => 1,
	xml_name => "Minute",
	;

has_attr 'second' =>
	is => "rw",
	isa => "XML::SRS::Time::Sexagesimal",
	xml_name => "Second",
	;

has_attr 'tz_offset' =>
	is => "rw",
	isa => "XML::SRS::Time::TZOffset",
	xml_required => 0,
	clearer => "make_floating",
	xml_name => "TimeZoneOffset",
	;

1;