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.pm8
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/Data/MultiValued/Tags.pm b/lib/Data/MultiValued/Tags.pm
index 59ebbf5..640db40 100644
--- a/lib/Data/MultiValued/Tags.pm
+++ b/lib/Data/MultiValued/Tags.pm
@@ -20,8 +20,6 @@ use Data::MultiValued::TagContainer;
say $obj->get({tag=>'tag1'}); # prints 'a string'
say $obj->get({tag=>'tag2'}); # dies
-=head1 METHODS
-
=cut
has _storage => (
@@ -35,7 +33,7 @@ sub _build__storage {
Data::MultiValued::TagContainer->new();
}
-=head2 C<set>
+=method C<set>
$obj->set({ tag => $the_tag, value => $the_value });
@@ -61,7 +59,7 @@ sub set {
->{value} = $args{value};
}
-=head2 C<get>
+=method C<get>
my $value = $obj->get({ tag => $the_tag });
@@ -87,7 +85,7 @@ sub get {
->{value};
}
-=head2 C<clear>
+=method C<clear>
$obj->clear({ tag => $the_tag });