diff options
author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-12-22 16:54:52 +0000 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-12-22 16:54:52 +0000 |
commit | 232ec507ed438fce63991f6ce8169365f430f062 (patch) | |
tree | 0ff3a084bce4402c7e52b4b67af406191df4c232 /lib/Data/MultiValued/Tags.pm | |
parent | Build results of 8bb2d9b (on master) (diff) | |
parent | remove MooseX::Types as far as sensible (diff) | |
download | data-multivalued-232ec507ed438fce63991f6ce8169365f430f062.tar.gz data-multivalued-232ec507ed438fce63991f6ce8169365f430f062.tar.bz2 data-multivalued-232ec507ed438fce63991f6ce8169365f430f062.zip |
Build results of e9892ef (on master)
Diffstat (limited to 'lib/Data/MultiValued/Tags.pm')
-rw-r--r-- | lib/Data/MultiValued/Tags.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/Data/MultiValued/Tags.pm b/lib/Data/MultiValued/Tags.pm index 5806a14..6d213d4 100644 --- a/lib/Data/MultiValued/Tags.pm +++ b/lib/Data/MultiValued/Tags.pm @@ -9,7 +9,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; @@ -31,8 +30,8 @@ sub _build__storage { 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) @@ -43,7 +42,7 @@ sub set { sub get { my ($self,%args) = validated_hash( \@_, - tag => { isa => Str, optional => 1, }, + tag => { isa => 'Str', optional => 1, }, ); $self->_storage->get(\%args) @@ -54,7 +53,7 @@ sub get { sub clear { my ($self,%args) = validated_hash( \@_, - tag => { isa => Str, optional => 1, }, + tag => { isa => 'Str', optional => 1, }, ); $self->_storage->clear(\%args); |