Build results of 2008730 (on master)

3 files changed, 90 insertions, 12 deletions

diff --git a/lib/Data/MultiValued/AttributeTrait/Ranges.pm b/lib/Data/MultiValued/AttributeTrait/Ranges.pm
index bb289f5..d8aaeef 100644
--- a/lib/Data/MultiValued/AttributeTrait/Ranges.pm
+++ b/lib/Data/MultiValued/AttributeTrait/Ranges.pm
@@ -1,6 +1,6 @@
 package Data::MultiValued::AttributeTrait::Ranges;
 {
-  $Data::MultiValued::AttributeTrait::Ranges::VERSION = '0.0.6_2';
+  $Data::MultiValued::AttributeTrait::Ranges::VERSION = '0.0.7_1';
 }
 {
   $Data::MultiValued::AttributeTrait::Ranges::DIST = 'Data-MultiValued';
@@ -17,9 +17,18 @@ sub multivalue_storage_class { 'Data::MultiValued::Ranges' };
 sub opts_to_pass_set { qw(from to) }
 sub opts_to_pass_get { qw(at) }
 
+sub all_ranges {
+    my ($self,$instance) = @_;
+
+    my $storage = $self->get_full_storage($instance);
+    return unless $storage;
+
+    return $storage->_storage->all_ranges;
+}
+
 package Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges;
 {
-  $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::VERSION = '0.0.6_2';
+  $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::VERSION = '0.0.7_1';
 }
 {
   $Moose::Meta::Attribute::Custom::Trait::MultiValued::Ranges::DIST = 'Data-MultiValued';
@@ -30,6 +39,7 @@ sub register_implementation { 'Data::MultiValued::AttributeTrait::Ranges' }
 1;
 
 __END__
+
 =pod
 
 =encoding utf-8
@@ -40,7 +50,7 @@ Data::MultiValued::AttributeTrait::Ranges - attribute traits for attributes hold
 
 =head1 VERSION
 
-version 0.0.6_2
+version 0.0.7_1
 
 =head1 SYNOPSIS
 
@@ -75,6 +85,15 @@ Returns C<('from', 'to')>.
 
 Returns C<('at')>.
 
+=head2 C<all_ranges>
+
+  my @ranges = $obj->meta->get_attribute('my_attr')->all_ranges($obj);
+
+Returns a list of 2-element arrayrefs, each arrayref describing the
+extremes of a range. Something like:
+
+   [ [undef,10], [10,20], [20,undef] ]
+
 =head1 AUTHOR
 
 Gianni Ceccarelli <dakkar@thenautilus.net>
@@ -87,4 +106,3 @@ This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.
 
 =cut
-
diff --git a/lib/Data/MultiValued/AttributeTrait/Tags.pm b/lib/Data/MultiValued/AttributeTrait/Tags.pm
index cb501e3..36851b5 100644
--- a/lib/Data/MultiValued/AttributeTrait/Tags.pm
+++ b/lib/Data/MultiValued/AttributeTrait/Tags.pm
@@ -1,6 +1,6 @@
 package Data::MultiValued::AttributeTrait::Tags;
 {
-  $Data::MultiValued::AttributeTrait::Tags::VERSION = '0.0.6_2';
+  $Data::MultiValued::AttributeTrait::Tags::VERSION = '0.0.7_1';
 }
 {
   $Data::MultiValued::AttributeTrait::Tags::DIST = 'Data-MultiValued';
@@ -17,9 +17,22 @@ sub multivalue_storage_class { 'Data::MultiValued::Tags' };
 sub opts_to_pass_set { qw(tag) }
 sub opts_to_pass_get { qw(tag) }
 
+sub all_tags {
+    my ($self,$instance) = @_;
+
+    my $storage = $self->get_full_storage($instance);
+    return () unless $storage;
+
+    my @tags = $storage->_storage->all_tags;
+    if ($storage->_storage->_has_default_tag) {
+        push @tags,undef;
+    }
+    return @tags;
+}
+
 package Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags;
 {
-  $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::VERSION = '0.0.6_2';
+  $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::VERSION = '0.0.7_1';
 }
 {
   $Moose::Meta::Attribute::Custom::Trait::MultiValued::Tags::DIST = 'Data-MultiValued';
@@ -30,6 +43,7 @@ sub register_implementation { 'Data::MultiValued::AttributeTrait::Tags' }
 1;
 
 __END__
+
 =pod
 
 =encoding utf-8
@@ -40,7 +54,7 @@ Data::MultiValued::AttributeTrait::Tags - attribute traits for attributes holdin
 
 =head1 VERSION
 
-version 0.0.6_2
+version 0.0.7_1
 
 =head1 SYNOPSIS
 
@@ -75,6 +89,13 @@ Returns C<('tag')>.
 
 Returns C<('tag')>.
 
+=head2 C<all_tags>
+
+  my @tags = $obj->meta->get_attribute('my_attr')->all_tags($obj);
+
+Returns a list of all values for which C<<
+$obj->has_my_attr_multi({tag=>$tag}) >> would return true.
+
 =head1 AUTHOR
 
 Gianni Ceccarelli <dakkar@thenautilus.net>
@@ -87,4 +108,3 @@ This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.
 
 =cut
-
diff --git a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
index 4dee46e..f5849d4 100644
--- a/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
+++ b/lib/Data/MultiValued/AttributeTrait/TagsAndRanges.pm
@@ -1,6 +1,6 @@
 package Data::MultiValued::AttributeTrait::TagsAndRanges;
 {
-  $Data::MultiValued::AttributeTrait::TagsAndRanges::VERSION = '0.0.6_2';
+  $Data::MultiValued::AttributeTrait::TagsAndRanges::VERSION = '0.0.7_1';
 }
 {
   $Data::MultiValued::AttributeTrait::TagsAndRanges::DIST = 'Data-MultiValued';
@@ -17,9 +17,34 @@ sub multivalue_storage_class { 'Data::MultiValued::TagsAndRanges' };
 sub opts_to_pass_set { qw(from to tag) }
 sub opts_to_pass_get { qw(at tag) }
 
+require Data::MultiValued::AttributeTrait::Tags;
+
+sub all_tags {
+    my ($self,$instance) = @_;
+    return $self->Data::MultiValued::AttributeTrait::Tags::all_tags($instance);
+}
+
+sub all_tags_and_ranges {
+    my ($self,$instance) = @_;
+
+    my $storage = $self->get_full_storage($instance);
+    return unless $storage;
+
+    my @tags = $self->all_tags($instance);
+
+    my @tags_and_ranges;
+    for my $tag (@tags) {
+        my @these_ranges = $storage->_storage
+            ->get({tag=>$tag})->all_ranges;
+        push @tags_and_ranges,[$tag, \@these_ranges];
+    }
+
+    return @tags_and_ranges;
+}
+
 package Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges;
 {
-  $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::VERSION = '0.0.6_2';
+  $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::VERSION = '0.0.7_1';
 }
 {
   $Moose::Meta::Attribute::Custom::Trait::MultiValued::TagsAndRanges::DIST = 'Data-MultiValued';
@@ -30,6 +55,7 @@ sub register_implementation { 'Data::MultiValued::AttributeTrait::TagsAndRanges'
 1;
 
 __END__
+
 =pod
 
 =encoding utf-8
@@ -40,7 +66,7 @@ Data::MultiValued::AttributeTrait::TagsAndRanges - attribute traits for attribut
 
 =head1 VERSION
 
-version 0.0.6_2
+version 0.0.7_1
 
 =head1 SYNOPSIS
 
@@ -75,6 +101,21 @@ Returns C<('tag', 'from', 'to')>.
 
 Returns C<('tag', 'at')>.
 
+=head2 C<all_tags_and_ranges>
+
+  my @tags_and_ranges = $obj->meta->get_attribute('my_attr')
+     ->all_tags_and_ranges($obj);
+
+Returns a list of 2-element arrayrefs. The first element of each
+arrayref is a tag (possibly C<undef>), the second element is an
+arrayref of 2-element arrayrefs, each arrayref describing the extremes
+of a range. Something like:
+
+   [
+    [ 'x', [ [undef,10], [10,20], [20,undef] ] ],
+    [ undef, [ [undef,undef] ] ],
+   ],
+
 =head1 AUTHOR
 
 Gianni Ceccarelli <dakkar@thenautilus.net>
@@ -87,4 +128,3 @@ This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.
 
 =cut
-