namespace::clean

diff --git a/Makefile.PL b/Makefile.PL
index 3327c1c..139fec3 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -5,11 +5,11 @@ use strict;
 use ExtUtils::MakeMaker;
 
 WriteMakefile(
-       NAME         => 'MooseX::Types::DateTime',
-       VERSION_FROM => 'lib/MooseX/Types/DateTime.pm',
-       INSTALLDIRS  => 'site',
-       SIGN         => 1,
-       PL_FILES     => { },
+    NAME         => 'MooseX::Types::DateTime',
+    VERSION_FROM => 'lib/MooseX/Types/DateTime.pm',
+    INSTALLDIRS  => 'site',
+    SIGN         => 1,
+    PL_FILES     => { },
     PREREQ_PM => {
         'Moose'              => '0.41', # class_type
         'DateTime'           => 0,
@@ -17,9 +17,10 @@ WriteMakefile(
         'DateTime::TimeZone' => 0,
         'Test::use::ok'      => 0,
         'Test::Exception'    => 0,
-               'MooseX::Types'      => '0.04',
-               'DateTimeX::Easy'    => '0.082',
-               'Time::Duration::Parse' => '0.06',
+        'MooseX::Types'      => '0.04',
+        'DateTimeX::Easy'    => '0.082',
+        'Time::Duration::Parse' => '0.06',
+        'namespace::clean'   => '0.08',
     },
 );
 

diff --git a/lib/MooseX/Types/DateTime.pm b/lib/MooseX/Types/DateTime.pm
index 93bb45b..e87bd90 100644 (file)
--- a/lib/MooseX/Types/DateTime.pm
+++ b/lib/MooseX/Types/DateTime.pm
@@ -12,6 +12,9 @@ use DateTime::Locale ();
 use DateTime::TimeZone ();
 
 use MooseX::Types::Moose qw/Num HashRef Str/;
+
+use namespace::clean;
+
 use MooseX::Types -declare => [qw( DateTime Duration TimeZone Locale Now )];
 
 class_type "DateTime";

diff --git a/lib/MooseX/Types/DateTimeX.pm b/lib/MooseX/Types/DateTimeX.pm
index 633680c..fa3ada1 100755 (executable)
--- a/lib/MooseX/Types/DateTimeX.pm
+++ b/lib/MooseX/Types/DateTimeX.pm
@@ -6,9 +6,12 @@ use warnings;
 use DateTime;
 use DateTime::Duration;
 use DateTimeX::Easy; 
-use Time::Duration::Parse ();
+use Time::Duration::Parse qw(parse_duration);
 use MooseX::Types::DateTime ();
 use MooseX::Types::Moose qw/Num HashRef Str/;
+
+use namespace::clean;
+
 use MooseX::Types -declare => [qw( DateTime Duration)];
 
 =head1 NAME
@@ -78,7 +81,7 @@ coerce( Duration,
     @{ $MooseX::Types::DateTime::coercions{"DateTime::Duration"} },
     from Str, via { 
         DateTime::Duration->new( 
-            seconds => Time::Duration::Parse::parse_duration($_)
+            seconds => parse_duration($_)
         );
     },
 );