Build results of 0601afe (on master)

13 files changed, 64 insertions, 42 deletions

diff --git a/lib/Data/MultiValued/AttributeAccessors.pm b/lib/Data/MultiValued/AttributeAccessors.pm
index abe2459..a88c67f 100644
--- a/lib/Data/MultiValued/AttributeAccessors.pm
+++ b/lib/Data/MultiValued/AttributeAccessors.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::AttributeAccessors;
-BEGIN {
+{
   $Data::MultiValued::AttributeAccessors::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::AttributeAccessors::DIST = 'Data-MultiValued';
 }
 use strict;
diff --git a/lib/Data/MultiValued/AttributeTrait.pm b/lib/Data/MultiValued/AttributeTrait.pm
index 88ae6e3..2ab2bb3 100644
--- a/lib/Data/MultiValued/AttributeTrait.pm
+++ b/lib/Data/MultiValued/AttributeTrait.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::AttributeTrait;
-BEGIN {
+{
   $Data::MultiValued::AttributeTrait::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::AttributeTrait::DIST = 'Data-MultiValued';
 }
 use Moose::Role;
@@ -180,11 +180,11 @@ before get_value => sub {
 
 
 sub get_multi_value {
-    my ($self,$instance,$opts,$value) = @_;
+    my ($self,$instance,$opts) = @_;
 
     local $dyn_opts = $opts;
 
-    return $self->get_value($instance,$value);
+    return $self->get_value($instance);
 }
 
 
diff --git a/lib/Data/MultiValued/AttributeTrait/Ranges.pm b/lib/Data/MultiValued/AttributeTrait/Ranges.pm
index e42c91e..b80d6d6 100644
--- a/lib/Data/MultiValued/AttributeTrait/Ranges.pm
+++ b/lib/Data/MultiValued/AttributeTrait/Ranges.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::AttributeTrait::Ranges;
-BEGIN {
+{
   $Data::MultiValued::AttributeTrait::Ranges::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::AttributeTrait::Ranges::DIST = 'Data-MultiValued';
 }
 use Moose::Role;
@@ -17,10 +17,10 @@ sub opts_to_pass_set { qw(from to) }
 sub opts_to_pass_get { qw(at) }
 
 package Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges;
-BEGIN {
+{
   $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::DIST = 'Data-MultiValued';
 }{
 sub register_implementation { 'Data::MultiValued::AttributeTrait::Ranges' }
diff --git a/lib/Data/MultiValued/AttributeTrait/Tags.pm b/lib/Data/MultiValued/AttributeTrait/Tags.pm
index 4765a93..f62a1eb 100644
--- a/lib/Data/MultiValued/AttributeTrait/Tags.pm
+++ b/lib/Data/MultiValued/AttributeTrait/Tags.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::AttributeTrait::Tags;
-BEGIN {
+{
   $Data::MultiValued::AttributeTrait::Tags::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::AttributeTrait::Tags::DIST = 'Data-MultiValued';
 }
 use Moose::Role;
@@ -17,10 +17,10 @@ sub opts_to_pass_set { qw(tag) }
 sub opts_to_pass_get { qw(tag) }
 
 package Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags;
-BEGIN {
+{
   $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::DIST = 'Data-MultiValued';
 }{
 sub register_implementation { 'Data::MultiValued::AttributeTrait::Tags' }
diff --git a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
index e31a725..23c93e6 100644
--- a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
+++ b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::AttributeTrait::TagsAndRanges;
-BEGIN {
+{
   $Data::MultiValued::AttributeTrait::TagsAndRanges::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::AttributeTrait::TagsAndRanges::DIST = 'Data-MultiValued';
 }
 use Moose::Role;
@@ -17,10 +17,10 @@ sub opts_to_pass_set { qw(from to tag) }
 sub opts_to_pass_get { qw(at tag) }
 
 package Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges;
-BEGIN {
+{
   $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::DIST = 'Data-MultiValued';
 }{
 sub register_implementation { 'Data::MultiValued::AttributeTrait::TagsAndRanges' }
diff --git a/lib/Data/MultiValued/Exceptions.pm b/lib/Data/MultiValued/Exceptions.pm
index 77a9e22..0c07943 100644
--- a/lib/Data/MultiValued/Exceptions.pm
+++ b/lib/Data/MultiValued/Exceptions.pm
@@ -1,15 +1,15 @@
 package Data::MultiValued::Exceptions;
-BEGIN {
+{
   $Data::MultiValued::Exceptions::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::Exceptions::DIST = 'Data-MultiValued';
 }
 package Data::MultiValued::Exceptions::NotFound;
-BEGIN {
+{
   $Data::MultiValued::Exceptions::NotFound::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::Exceptions::NotFound::DIST = 'Data-MultiValued';
 }{
 use Moose;
@@ -31,10 +31,10 @@ sub as_string {
 
 }
 package Data::MultiValued::Exceptions::TagNotFound;
-BEGIN {
+{
   $Data::MultiValued::Exceptions::TagNotFound::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::Exceptions::TagNotFound::DIST = 'Data-MultiValued';
 }{
 use Moose;
@@ -45,10 +45,10 @@ has '+message' => (
 );
 }
 package Data::MultiValued::Exceptions::RangeNotFound;
-BEGIN {
+{
   $Data::MultiValued::Exceptions::RangeNotFound::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::Exceptions::RangeNotFound::DIST = 'Data-MultiValued';
 }{
 use Moose;
@@ -59,10 +59,10 @@ has '+message' => (
 );
 }
 package Data::MultiValued::Exceptions::BadRange;
-BEGIN {
+{
   $Data::MultiValued::Exceptions::BadRange::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::Exceptions::BadRange::DIST = 'Data-MultiValued';
 }{
 use Moose;
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>
diff --git a/lib/Data/MultiValued/Ranges.pm b/lib/Data/MultiValued/Ranges.pm
index 6ea55c1..c5d863a 100644
--- a/lib/Data/MultiValued/Ranges.pm
+++ b/lib/Data/MultiValued/Ranges.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::Ranges;
-BEGIN {
+{
   $Data::MultiValued::Ranges::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::Ranges::DIST = 'Data-MultiValued';
 }
 use Moose;
diff --git a/lib/Data/MultiValued/TagContainer.pm b/lib/Data/MultiValued/TagContainer.pm
index 2408576..8c505cc 100644
--- a/lib/Data/MultiValued/TagContainer.pm
+++ b/lib/Data/MultiValued/TagContainer.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::TagContainer;
-BEGIN {
+{
   $Data::MultiValued::TagContainer::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::TagContainer::DIST = 'Data-MultiValued';
 }
 use Moose;
@@ -24,6 +24,7 @@ has _storage => (
         _get_tag => 'get',
         _create_tag => 'set',
         _delete_tag => 'delete',
+        all_tags => 'keys',
     },
 );
 
@@ -171,6 +172,13 @@ Not passing in a C<tag>, or passing C<< tag => undef >>, clears
 everything. If you want to only clear the C<undef> tag, you may call
 C<_clear_default_tag> (which is considered a "protected" method).
 
+=head2 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>
 
 Returns a new "storage cell", by default an empty hashref. See
diff --git a/lib/Data/MultiValued/TagContainerForRanges.pm b/lib/Data/MultiValued/TagContainerForRanges.pm
index 071ac04..a724f59 100644
--- a/lib/Data/MultiValued/TagContainerForRanges.pm
+++ b/lib/Data/MultiValued/TagContainerForRanges.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::TagContainerForRanges;
-BEGIN {
+{
   $Data::MultiValued::TagContainerForRanges::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::TagContainerForRanges::DIST = 'Data-MultiValued';
 }
 use Moose;
diff --git a/lib/Data/MultiValued/Tags.pm b/lib/Data/MultiValued/Tags.pm
index 38ed17d..3304190 100644
--- a/lib/Data/MultiValued/Tags.pm
+++ b/lib/Data/MultiValued/Tags.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::Tags;
-BEGIN {
+{
   $Data::MultiValued::Tags::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::Tags::DIST = 'Data-MultiValued';
 }
 use Moose;
diff --git a/lib/Data/MultiValued/TagsAndRanges.pm b/lib/Data/MultiValued/TagsAndRanges.pm
index 147c38f..b50797c 100644
--- a/lib/Data/MultiValued/TagsAndRanges.pm
+++ b/lib/Data/MultiValued/TagsAndRanges.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::TagsAndRanges;
-BEGIN {
+{
   $Data::MultiValued::TagsAndRanges::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::TagsAndRanges::DIST = 'Data-MultiValued';
 }
 use Moose;
diff --git a/lib/Data/MultiValued/UglySerializationHelperRole.pm b/lib/Data/MultiValued/UglySerializationHelperRole.pm
index 34fc5c0..88db0de 100644
--- a/lib/Data/MultiValued/UglySerializationHelperRole.pm
+++ b/lib/Data/MultiValued/UglySerializationHelperRole.pm
@@ -1,8 +1,8 @@
 package Data::MultiValued::UglySerializationHelperRole;
-BEGIN {
+{
   $Data::MultiValued::UglySerializationHelperRole::VERSION = '0.0.1';
 }
-BEGIN {
+{
   $Data::MultiValued::UglySerializationHelperRole::DIST = 'Data-MultiValued';
 }
 use Moose::Role;