remove MooseX::Types as far as sensible

it leaks!

1 files changed, 9 insertions, 10 deletions

diff --git a/lib/Data/MultiValued/TagsAndRanges.pm b/lib/Data/MultiValued/TagsAndRanges.pm
index 2f06452..43bff6b 100644
--- a/lib/Data/MultiValued/TagsAndRanges.pm
+++ b/lib/Data/MultiValued/TagsAndRanges.pm
@@ -3,7 +3,6 @@ use Moose;
 use namespace::autoclean;
 use MooseX::Params::Validate;
 use Moose::Util::TypeConstraints;
-use MooseX::Types::Moose qw(Num Str Undef Any);
 use Data::MultiValued::Exceptions;
 use Data::MultiValued::TagContainerForRanges;
 
@@ -52,10 +51,10 @@ L<Data::MultiValued::Ranges/set> for more details.
 sub set {
     my ($self,%args) = validated_hash(
         \@_,
-        from => { isa => Num|Undef, optional => 1, },
-        to => { isa => Num|Undef, optional => 1, },
-        tag => { isa => Str, optional => 1, },
-        value => { isa => Any, },
+        from => { isa => 'Num|Undef', optional => 1, },
+        to => { isa => 'Num|Undef', optional => 1, },
+        tag => { isa => 'Str', optional => 1, },
+        value => { isa => 'Any', },
     );
 
     $self->_storage->get_or_create(\%args)
@@ -82,8 +81,8 @@ L<Data::MultiValued::Ranges/get> for more details.
 sub get {
     my ($self,%args) = validated_hash(
         \@_,
-        at => { isa => Num|Undef, optional => 1, },
-        tag => { isa => Str, optional => 1, },
+        at => { isa => 'Num|Undef', optional => 1, },
+        tag => { isa => 'Str', optional => 1, },
     );
 
     $self->_storage->get(\%args)
@@ -108,9 +107,9 @@ L<Data::MultiValued::Ranges/clear> for more details.
 sub clear {
     my ($self,%args) = validated_hash(
         \@_,
-        from => { isa => Num|Undef, optional => 1, },
-        to => { isa => Num|Undef, optional => 1, },
-        tag => { isa => Str, optional => 1, },
+        from => { isa => 'Num|Undef', optional => 1, },
+        to => { isa => 'Num|Undef', optional => 1, },
+        tag => { isa => 'Str', optional => 1, },
     );
 
     if (exists $args{from} || exists $args{to}) {