diff options
author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2012-12-11 17:08:10 +0000 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2012-12-11 17:10:33 +0000 |
commit | f3843b86e5173a11c084287c00edf0fa1f9fb817 (patch) | |
tree | 064fccbf68d24fe88e2c844b8a7a4f9cd9114946 /lib/Data/MultiValued/TagsAndRanges.pm | |
parent | fake bump (diff) | |
download | data-multivalued-f3843b86e5173a11c084287c00edf0fa1f9fb817.tar.gz data-multivalued-f3843b86e5173a11c084287c00edf0fa1f9fb817.tar.bz2 data-multivalued-f3843b86e5173a11c084287c00edf0fa1f9fb817.zip |
add all_tags etcv0.0.7_1-dzilla
Diffstat (limited to 'lib/Data/MultiValued/TagsAndRanges.pm')
-rw-r--r-- | lib/Data/MultiValued/TagsAndRanges.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Data/MultiValued/TagsAndRanges.pm b/lib/Data/MultiValued/TagsAndRanges.pm index 43bff6b..b0fc694 100644 --- a/lib/Data/MultiValued/TagsAndRanges.pm +++ b/lib/Data/MultiValued/TagsAndRanges.pm @@ -53,7 +53,7 @@ sub set { \@_, from => { isa => 'Num|Undef', optional => 1, }, to => { isa => 'Num|Undef', optional => 1, }, - tag => { isa => 'Str', optional => 1, }, + tag => { isa => 'Maybe[Str]', optional => 1, }, value => { isa => 'Any', }, ); @@ -82,7 +82,7 @@ sub get { my ($self,%args) = validated_hash( \@_, at => { isa => 'Num|Undef', optional => 1, }, - tag => { isa => 'Str', optional => 1, }, + tag => { isa => 'Maybe[Str]', optional => 1, }, ); $self->_storage->get(\%args) @@ -109,7 +109,7 @@ sub clear { \@_, from => { isa => 'Num|Undef', optional => 1, }, to => { isa => 'Num|Undef', optional => 1, }, - tag => { isa => 'Str', optional => 1, }, + tag => { isa => 'Maybe[Str]', optional => 1, }, ); if (exists $args{from} || exists $args{to}) { |