X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FGitalist%2FGit%2FTypes.pm;h=af12bbc78a75495f3fb55620a56ef35e080d999f;hb=3a6dd969c784dc7929e08e847a63d881446d8df8;hp=5cca578f1d37023b4b78d71ffbecb189b9ad113f;hpb=9c9f54f07d50f0999085da94be9babc678f408f2;p=catagits%2FGitalist.git diff --git a/lib/Gitalist/Git/Types.pm b/lib/Gitalist/Git/Types.pm index 5cca578..af12bbc 100644 --- a/lib/Gitalist/Git/Types.pm +++ b/lib/Gitalist/Git/Types.pm @@ -1,16 +1,8 @@ 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, @@ -22,34 +14,4 @@ coerce 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;