summaryrefslogtreecommitdiff
path: root/lib/Data/MultiValued/TagsAndRanges.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/MultiValued/TagsAndRanges.pm')
-rw-r--r--lib/Data/MultiValued/TagsAndRanges.pm12
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
-