Build results of 0601afe (on master)

17 files changed, 106 insertions, 75 deletions

diff --git a/Changes b/Changes
index de992a4..4b4ef50 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,4 @@
 Revision history for Data::MultiValued
 
-0.0.1     2011-11-14 16:57:31 Europe/London
+0.0.1     2011-11-15 12:59:51 Europe/London
   - first working version
diff --git a/META.json b/META.json
index b9e7068..403252d 100644
--- a/META.json
+++ b/META.json
@@ -4,7 +4,7 @@
       "Gianni Ceccarelli <dakkar@thenautilus.net>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 4.200012, CPAN::Meta::Converter version 2.110930",
+   "generated_by" : "Dist::Zilla version 4.300002, CPAN::Meta::Converter version 2.112150",
    "license" : [
       "perl_5"
    ],
@@ -37,7 +37,10 @@
             "MooseX::Types::Structured" : 0,
             "Throwable::Error" : 0,
             "Try::Tiny" : 0,
-            "namespace::autoclean" : 0
+            "base" : 0,
+            "namespace::autoclean" : 0,
+            "strict" : 0,
+            "warnings" : 0
          }
       },
       "test" : {
diff --git a/META.yml b/META.yml
index df1e28a..3c203e6 100644
--- a/META.yml
+++ b/META.yml
@@ -10,7 +10,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: 6.30
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200012, CPAN::Meta::Converter version 2.110930'
+generated_by: 'Dist::Zilla version 4.300002, CPAN::Meta::Converter version 2.112150'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -31,5 +31,8 @@ requires:
   MooseX::Types::Structured: 0
   Throwable::Error: 0
   Try::Tiny: 0
+  base: 0
   namespace::autoclean: 0
+  strict: 0
+  warnings: 0
 version: 0.0.1
diff --git a/Makefile.PL b/Makefile.PL
index 7f4f2ca..459c86d 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -9,38 +9,41 @@ use ExtUtils::MakeMaker 6.30;
 
 
 my %WriteMakefileArgs = (
-  'ABSTRACT' => 'Handle values with tags and validity ranges',
-  'AUTHOR' => 'Gianni Ceccarelli <dakkar@thenautilus.net>',
-  'BUILD_REQUIRES' => {
-    'Data::Printer' => '0',
-    'JSON::XS' => '0',
-    'Test::More' => '0',
-    'Test::Most' => '0'
+  "ABSTRACT" => "Handle values with tags and validity ranges",
+  "AUTHOR" => "Gianni Ceccarelli <dakkar@thenautilus.net>",
+  "BUILD_REQUIRES" => {
+    "Data::Printer" => 0,
+    "JSON::XS" => 0,
+    "Test::More" => 0,
+    "Test::Most" => 0
   },
-  'CONFIGURE_REQUIRES' => {
-    'ExtUtils::MakeMaker' => '6.30'
+  "CONFIGURE_REQUIRES" => {
+    "ExtUtils::MakeMaker" => "6.30"
   },
-  'DISTNAME' => 'Data-MultiValued',
-  'EXE_FILES' => [],
-  'LICENSE' => 'perl',
-  'NAME' => 'Data::MultiValued',
-  'PREREQ_PM' => {
-    'Carp' => '0',
-    'Data::MultiValued::Exceptions::NotFound' => '0',
-    'Moose' => '0',
-    'Moose::Meta::Method::Accessor' => '0',
-    'Moose::Role' => '0',
-    'Moose::Util::TypeConstraints' => '0',
-    'MooseX::Params::Validate' => '0',
-    'MooseX::Types::Moose' => '0',
-    'MooseX::Types::Structured' => '0',
-    'Throwable::Error' => '0',
-    'Try::Tiny' => '0',
-    'namespace::autoclean' => '0'
+  "DISTNAME" => "Data-MultiValued",
+  "EXE_FILES" => [],
+  "LICENSE" => "perl",
+  "NAME" => "Data::MultiValued",
+  "PREREQ_PM" => {
+    "Carp" => 0,
+    "Data::MultiValued::Exceptions::NotFound" => 0,
+    "Moose" => 0,
+    "Moose::Meta::Method::Accessor" => 0,
+    "Moose::Role" => 0,
+    "Moose::Util::TypeConstraints" => 0,
+    "MooseX::Params::Validate" => 0,
+    "MooseX::Types::Moose" => 0,
+    "MooseX::Types::Structured" => 0,
+    "Throwable::Error" => 0,
+    "Try::Tiny" => 0,
+    "base" => 0,
+    "namespace::autoclean" => 0,
+    "strict" => 0,
+    "warnings" => 0
   },
-  'VERSION' => '0.0.1',
-  'test' => {
-    'TESTS' => 't/*.t'
+  "VERSION" => "0.0.1",
+  "test" => {
+    "TESTS" => "t/*.t"
   }
 );
 
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;