diff options
Diffstat (limited to 'lib/Data/MultiValued/Tags.pm')
-rw-r--r-- | lib/Data/MultiValued/Tags.pm | 12 |
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 - |