add all_tags etcv0.0.7_1-dzilla

1 files changed, 20 insertions, 0 deletions

diff --git a/lib/Data/MultiValued/AttributeTrait/Tags.pm b/lib/Data/MultiValued/AttributeTrait/Tags.pm
index 2ea848e..7803c24 100644
--- a/lib/Data/MultiValued/AttributeTrait/Tags.pm
+++ b/lib/Data/MultiValued/AttributeTrait/Tags.pm
@@ -39,12 +39,32 @@ 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.
+
 =cut
 
 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;{
 sub register_implementation { 'Data::MultiValued::AttributeTrait::Tags' }
 }