lib/Gitalist/Git/Types.pm

   1 package Gitalist::Git::Types;
   2
   3 use MooseX::Types
   4     -declare => [qw/SHA1/];
   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;