From e9892ef4bc3335e9f75342c6d804015002680b0b Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Thu, 22 Dec 2011 16:54:11 +0000 Subject: remove MooseX::Types as far as sensible it leaks! --- lib/Data/MultiValued/AttributeTrait.pm | 5 ++--- lib/Data/MultiValued/Ranges.pm | 15 +++++++-------- lib/Data/MultiValued/Tags.pm | 9 ++++----- lib/Data/MultiValued/TagsAndRanges.pm | 19 +++++++++---------- 4 files changed, 22 insertions(+), 26 deletions(-) (limited to 'lib') diff --git a/lib/Data/MultiValued/AttributeTrait.pm b/lib/Data/MultiValued/AttributeTrait.pm index eb8cbd3..4ebf474 100644 --- a/lib/Data/MultiValued/AttributeTrait.pm +++ b/lib/Data/MultiValued/AttributeTrait.pm @@ -2,7 +2,6 @@ package Data::MultiValued::AttributeTrait; use Moose::Role; use namespace::autoclean; use Data::MultiValued::AttributeAccessors; -use MooseX::Types::Moose qw(Str); use Try::Tiny; use namespace::autoclean; @@ -51,7 +50,7 @@ C<$name> is the attribute name. has 'full_storage_slot' => ( is => 'ro', - isa => Str, + isa => 'Str', lazy_build => 1, ); sub _build_full_storage_slot { shift->name . '__MULTIVALUED_STORAGE__' } @@ -86,7 +85,7 @@ my @accs_to_multiply=qw(accessor reader writer predicate clearer); for my $acc (@accs_to_multiply) { has "multi_$acc" => ( is => 'ro', - isa => Str, + isa => 'Str', predicate => "has_multi_$acc", ); } diff --git a/lib/Data/MultiValued/Ranges.pm b/lib/Data/MultiValued/Ranges.pm index 5f193ba..d03153d 100644 --- a/lib/Data/MultiValued/Ranges.pm +++ b/lib/Data/MultiValued/Ranges.pm @@ -1,9 +1,8 @@ package Data::MultiValued::Ranges; use Moose; use namespace::autoclean; -use MooseX::Params::Validate; use Moose::Util::TypeConstraints; -use MooseX::Types::Moose qw(Num Str Undef Any); +use MooseX::Params::Validate; use Data::MultiValued::Exceptions; use Data::MultiValued::RangeContainer; @@ -73,9 +72,9 @@ just stored. sub set { my ($self,%args) = validated_hash( \@_, - from => { isa => Num|Undef, optional => 1, }, - to => { isa => Num|Undef, optional => 1, }, - value => { isa => Any, }, + from => { isa => 'Num|Undef', optional => 1, }, + to => { isa => 'Num|Undef', optional => 1, }, + value => { isa => 'Any', }, ); $self->_storage->get_or_create(\%args) @@ -102,7 +101,7 @@ untouched. sub get { my ($self,%args) = validated_hash( \@_, - at => { isa => Num|Undef, optional => 1, }, + at => { isa => 'Num|Undef', optional => 1, }, ); $self->_storage->get(\%args) @@ -141,8 +140,8 @@ other words: sub clear { my ($self,%args) = validated_hash( \@_, - from => { isa => Num|Undef, optional => 1, }, - to => { isa => Num|Undef, optional => 1, }, + from => { isa => 'Num|Undef', optional => 1, }, + to => { isa => 'Num|Undef', optional => 1, }, ); $self->_storage->clear(\%args); diff --git a/lib/Data/MultiValued/Tags.pm b/lib/Data/MultiValued/Tags.pm index 8ba06f3..063a778 100644 --- a/lib/Data/MultiValued/Tags.pm +++ b/lib/Data/MultiValued/Tags.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::TagContainer; @@ -52,8 +51,8 @@ just stored. sub set { my ($self,%args) = validated_hash( \@_, - tag => { isa => Str, optional => 1, }, - value => { isa => Any, }, + tag => { isa => 'Str', optional => 1, }, + value => { isa => 'Any', }, ); $self->_storage->get_or_create(\%args) @@ -79,7 +78,7 @@ untouched. sub get { my ($self,%args) = validated_hash( \@_, - tag => { isa => Str, optional => 1, }, + tag => { isa => 'Str', optional => 1, }, ); $self->_storage->get(\%args) @@ -101,7 +100,7 @@ is no way to just clear the value for the C tag. sub clear { my ($self,%args) = validated_hash( \@_, - tag => { isa => Str, optional => 1, }, + tag => { isa => 'Str', optional => 1, }, ); $self->_storage->clear(\%args); 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 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 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 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}) { -- cgit v1.2.3