diff options
Diffstat (limited to 'lib/Data/MultiValued/TagsAndRanges.pm')
-rw-r--r-- | lib/Data/MultiValued/TagsAndRanges.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Data/MultiValued/TagsAndRanges.pm b/lib/Data/MultiValued/TagsAndRanges.pm index f4c35ad..17f7e02 100644 --- a/lib/Data/MultiValued/TagsAndRanges.pm +++ b/lib/Data/MultiValued/TagsAndRanges.pm @@ -1,6 +1,6 @@ package Data::MultiValued::TagsAndRanges; { - $Data::MultiValued::TagsAndRanges::VERSION = '0.0.6_2'; + $Data::MultiValued::TagsAndRanges::VERSION = '0.0.7_1'; } { $Data::MultiValued::TagsAndRanges::DIST = 'Data-MultiValued'; @@ -32,7 +32,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', }, ); @@ -46,7 +46,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) @@ -60,7 +60,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}) { @@ -93,6 +93,7 @@ __PACKAGE__->meta->make_immutable(); 1; __END__ + =pod =encoding utf-8 @@ -103,7 +104,7 @@ Data::MultiValued::TagsAndRanges - Handle values with tags and validity ranges =head1 VERSION -version 0.0.6_2 +version 0.0.7_1 =head1 SYNOPSIS @@ -186,4 +187,3 @@ This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut - |