diff options
| author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-15 13:00:01 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-15 13:00:01 +0000 |
| commit | 7b1c7342f8c1a04e5874a8e35b42d9a29271b4eb (patch) | |
| tree | 9119b1228fa2535bcade3c96e147eda23ca177cf /lib/Data/MultiValued/RangeContainer.pm | |
| parent | Build results of bb2712c (on master) (diff) | |
| parent | drop useless param (diff) | |
| download | data-multivalued-7b1c7342f8c1a04e5874a8e35b42d9a29271b4eb.tar.gz data-multivalued-7b1c7342f8c1a04e5874a8e35b42d9a29271b4eb.tar.bz2 data-multivalued-7b1c7342f8c1a04e5874a8e35b42d9a29271b4eb.zip | |
Build results of 0601afe (on master)
Diffstat (limited to 'lib/Data/MultiValued/RangeContainer.pm')
| -rw-r--r-- | lib/Data/MultiValued/RangeContainer.pm | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/lib/Data/MultiValued/RangeContainer.pm b/lib/Data/MultiValued/RangeContainer.pm index 58e9e53..8e369e1 100644 --- a/lib/Data/MultiValued/RangeContainer.pm +++ b/lib/Data/MultiValued/RangeContainer.pm @@ -1,8 +1,8 @@ package Data::MultiValued::RangeContainer; -BEGIN { +{ $Data::MultiValued::RangeContainer::VERSION = '0.0.1'; } -BEGIN { +{ $Data::MultiValued::RangeContainer::DIST = 'Data-MultiValued'; } use Moose; @@ -225,6 +225,13 @@ sub _splice_slot { return $new; } + +sub all_ranges { + my ($self) = @_; + + return map { [ $_->{from}, $_->{to} ] } @{$self->_storage}; +} + 1; __END__ @@ -283,6 +290,13 @@ will die. Throws L<Data::MultiValued::Exceptions::BadRange> if C<< $min > $max >>. +=head2 C<all_ranges> + + my @ranges = $obj->all_ranges; + +Returns all the ranges defined in this object, as a list of 2-elements +arrayrefs. + =head1 AUTHOR Gianni Ceccarelli <dakkar@thenautilus.net> |