diff options
author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-12-01 17:55:09 +0000 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-12-05 18:28:24 +0000 |
commit | f65d518a1c5d7092498a74ae52eb7b8a8ea2e789 (patch) | |
tree | cd154c81307549f1bddf5f6414df58ee40268a73 /lib/Data/MultiValued/Tags.pm | |
parent | Merge remote branch 'dzil-test/master' (diff) | |
download | data-multivalued-f65d518a1c5d7092498a74ae52eb7b8a8ea2e789.tar.gz data-multivalued-f65d518a1c5d7092498a74ae52eb7b8a8ea2e789.tar.bz2 data-multivalued-f65d518a1c5d7092498a74ae52eb7b8a8ea2e789.zip |
use pod::weaver really
Diffstat (limited to 'lib/Data/MultiValued/Tags.pm')
-rw-r--r-- | lib/Data/MultiValued/Tags.pm | 8 |
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 }); |