Use the introspection API to get MX:T:DateTime's coercions

diff --git a/Changes b/Changes
index 1e6a06c..6e1062d 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+
+       - Use the introspection API to get MX:T:DateTime's coercions
+
 0.08    2011-12-12 13:18:23 Europe/London
 
         - Require fixed MooseX::Types::DateTime version (RT#73192)

diff --git a/lib/MooseX/Types/DateTime/MoreCoercions.pm b/lib/MooseX/Types/DateTime/MoreCoercions.pm
index c8d7dd4..1a8c33f 100644 (file)
--- a/lib/MooseX/Types/DateTime/MoreCoercions.pm
+++ b/lib/MooseX/Types/DateTime/MoreCoercions.pm
@@ -18,13 +18,13 @@ use MooseX::Types 0.04 -declare => [qw( DateTime Duration)];
 
 subtype DateTime, as MooseX::Types::DateTime::DateTime;
 coerce( DateTime,
-    @{ $MooseX::Types::DateTime::coercions{DateTime} },
+    @{ MooseX::Types::DateTime::DateTime->coercion->type_coercion_map },
     from Str, via { DateTimeX::Easy->new($_) },
 );
 
 subtype Duration, as MooseX::Types::DateTime::Duration;
 coerce( Duration,
-    @{ $MooseX::Types::DateTime::coercions{"DateTime::Duration"} },
+    @{ MooseX::Types::DateTime::Duration->coercion->type_coercion_map },
     from Str, via { 
         DateTime::Duration->new( 
             seconds => parse_duration($_)