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:26:10 +0000 |
| commit | 43256f519bfeba10d6adc46af524ac513c8704a5 (patch) | |
| tree | 3dd799e8dcedc5adde05313068a81c52ff0877a5 /lib/Data/MultiValued/Ranges.pm | |
| parent | Merge remote branch 'dzil-test/master' (diff) | |
| download | data-multivalued-43256f519bfeba10d6adc46af524ac513c8704a5.tar.gz data-multivalued-43256f519bfeba10d6adc46af524ac513c8704a5.tar.bz2 data-multivalued-43256f519bfeba10d6adc46af524ac513c8704a5.zip | |
use pod::weaver really
Diffstat (limited to 'lib/Data/MultiValued/Ranges.pm')
| -rw-r--r-- | lib/Data/MultiValued/Ranges.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/Data/MultiValued/Ranges.pm b/lib/Data/MultiValued/Ranges.pm index 3da1594..aed29f4 100644 --- a/lib/Data/MultiValued/Ranges.pm +++ b/lib/Data/MultiValued/Ranges.pm @@ -21,8 +21,6 @@ use Data::MultiValued::RangeContainer; say $obj->get({at => 15}); # prints 'foo' say $obj->get({at => 35}); # dies -=head1 METHODS - =cut has _storage => ( @@ -36,7 +34,7 @@ sub _build__storage { Data::MultiValued::RangeContainer->new(); } -=head2 C<set> +=method C<set> $obj->set({ from => $min, to => $max, value => $the_value }); @@ -83,7 +81,7 @@ sub set { ->{value} = $args{value}; } -=head2 C<get> +=method C<get> my $value = $obj->get({ at => $point }); @@ -110,7 +108,7 @@ sub get { ->{value}; } -=head2 C<clear> +=method C<clear> $obj->clear({ from => $min, to => $max }); |