File Coverage

blib/lib/MooX/Types/MooseLike/DateTime.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package MooX::Types::MooseLike::DateTime;

use warnings;
use strict;

use MooX::Types::MooseLike qw/exception_message/;
use MooX::Types::MooseLike::Base;

use Scalar::Util qw/blessed/;

use base 'Exporter';
our @EXPORT_OK = ();

our $VERSION = '0.01'; # VERSION

my $type_definitions = [
	map {
		{
			name       => $_,
			subtype_of => 'Object',
			from       => 'MooX::Types::MooseLike::Base',
			test       => sub { blessed($_[0]) and blessed($_[0]) eq 'DateTime' },
			message    => sub { return exception_message($_[0], 'a DateTime object') }
		}
	} qw/DateAndTime DateTime/
];

MooX::Types::MooseLike::register_types($type_definitions, __PACKAGE__, 'MooseX::Types::DateTime');
our %EXPORT_TAGS = (all => \@EXPORT_OK);

1;

__END__