summaryrefslogtreecommitdiff
path: root/lib/Data/MultiValued/Tags.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/MultiValued/Tags.pm')
-rw-r--r--lib/Data/MultiValued/Tags.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Data/MultiValued/Tags.pm b/lib/Data/MultiValued/Tags.pm
index edfcb54..247f114 100644
--- a/lib/Data/MultiValued/Tags.pm
+++ b/lib/Data/MultiValued/Tags.pm
@@ -1,6 +1,6 @@
package Data::MultiValued::Tags;
{
- $Data::MultiValued::Tags::VERSION = '0.0.6_2';
+ $Data::MultiValued::Tags::VERSION = '0.0.7_1';
}
{
$Data::MultiValued::Tags::DIST = 'Data-MultiValued';
@@ -30,7 +30,7 @@ sub _build__storage {
sub set {
my ($self,%args) = validated_hash(
\@_,
- tag => { isa => 'Str', optional => 1, },
+ tag => { isa => 'Maybe[Str]', optional => 1, },
value => { isa => 'Any', },
);
@@ -42,7 +42,7 @@ sub set {
sub get {
my ($self,%args) = validated_hash(
\@_,
- tag => { isa => 'Str', optional => 1, },
+ tag => { isa => 'Maybe[Str]', optional => 1, },
);
$self->_storage->get(\%args)
@@ -53,7 +53,7 @@ sub get {
sub clear {
my ($self,%args) = validated_hash(
\@_,
- tag => { isa => 'Str', optional => 1, },
+ tag => { isa => 'Maybe[Str]', optional => 1, },
);
$self->_storage->clear(\%args);
@@ -80,6 +80,7 @@ __PACKAGE__->meta->make_immutable();
1;
__END__
+
=pod
=encoding utf-8
@@ -90,7 +91,7 @@ Data::MultiValued::Tags - Handle values with tags
=head1 VERSION
-version 0.0.6_2
+version 0.0.7_1
=head1 SYNOPSIS
@@ -173,4 +174,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
-