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/TagContainer.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/TagContainer.pm')
-rw-r--r-- | lib/Data/MultiValued/TagContainer.pm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lib/Data/MultiValued/TagContainer.pm b/lib/Data/MultiValued/TagContainer.pm index f6e5551..fe1a794 100644 --- a/lib/Data/MultiValued/TagContainer.pm +++ b/lib/Data/MultiValued/TagContainer.pm @@ -20,8 +20,6 @@ tag that's not there. Data is kept in "storage cells", as created by L</_create_new_inferior> (by default, a hashref). -=head1 METHODS - =cut has _storage => ( @@ -46,7 +44,7 @@ has _default_tag => ( clearer => '_clear_default_tag', ); -=head2 C<get> +=method C<get> my $value = $obj->get({ tag => $the_tag }); @@ -82,7 +80,7 @@ sub get { return $self->_get_tag($tag); } -=head2 C<get_or_create> +=method C<get_or_create> $obj->get_or_create({ tag => $the_tag }); @@ -123,7 +121,7 @@ sub _clear_storage { $self->_storage({}); } -=head2 C<clear> +=method C<clear> $obj->clear({ tag => $the_tag }); @@ -151,14 +149,14 @@ sub clear { return; } -=head2 C<all_tags> +=method C<all_tags> my @tags = $obj->all_tags; Returns all the tags defined in this object. Does not return the C<undef> tag. -=head2 C<_create_new_inferior> +=method C<_create_new_inferior> Returns a new "storage cell", by default an empty hashref. See L<Data::MultiValued::TagContainerForRanges> for an example of use. |