[catagits/Gitalist.git] / lib / Gitalist / Git / Types.pm

package Gitalist::Git::Types;

use MooseX::Types
    -declare => [qw/SHA1/];

use MooseX::Types::Common::String qw/NonEmptySimpleStr/;

subtype SHA1,
    as NonEmptySimpleStr,
    where { $_ =~ qr/^[0-9a-fA-F]{40}$/ },
    message { q/Str doesn't look like a SHA1./ };

coerce SHA1,
    from NonEmptySimpleStr,
    via { 1 };

1;
Commit	Line	Data
ceef0cf1	1	package Gitalist::Git::Types;
	2
	3	use MooseX::Types
3a6dd969	4	-declare => [qw/SHA1/];
ceef0cf1	5
	6	use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
	7
	8	subtype SHA1,
	9	as NonEmptySimpleStr,
	10	where { $_ =~ qr/^[0-9a-fA-F]{40}$/ },
	11	message { q/Str doesn't look like a SHA1./ };
	12
	13	coerce SHA1,
	14	from NonEmptySimpleStr,
	15	via { 1 };
	16
	17	1;