package Gitalist::Git::Types;
use MooseX::Types
- -declare => [qw/
- SHA1
- DateTime
- Dir
- /];
+ -declare => [qw/SHA1/];
-use MooseX::Types::Path::Class;
-use MooseX::Types::ISO8601 qw/ISO8601DateTimeStr/;
-use MooseX::Types::DateTime ();
-use MooseX::Storage::Engine ();
use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
subtype SHA1,
from NonEmptySimpleStr,
via { 1 };
-subtype DateTime,
- as 'MooseX::Types::DateTime::DateTime',
- where { 1 };
-
-MooseX::Storage::Engine->add_custom_type_handler(
- DateTime,
- expand => sub {
- my $val = shift;
- Carp::confess("Not implemented");
- },
- collapse => sub {
- to_ISO8601DateTimeStr(shift);
- },
-);
-
-subtype Dir,
- as 'MooseX::Types::Path::Class::Dir',
- where { 1 };
-
-MooseX::Storage::Engine->add_custom_type_handler(
- Dir,
- expand => sub {
- my $val = shift;
- Carp::confess("Not implemented");
- },
- collapse => sub {
- shift() . '';
- },
-);
-
1;