1 files changed, 19 insertions, 0 deletions
diff --git a/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Tagged.pm b/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Tagged.pm
index 7839e2d..2a45506 100644
--- a/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Tagged.pm
+++ b/Data-MultiValued/lib/Data/MultiValued/AttributeTrait/Tagged.pm
@@ -187,6 +187,25 @@ sub get_tagged_write_method  {
     return $self->get_write_method . '_tagged';
 }
 
+sub _rebless_slot {
+    my ($self,$instance) = @_;
+
+    my $st = $self->get_full_storage($instance);
+    return unless $st;
+
+    bless $st, 'Data::MultiValued::Tags';
+    $st->_rebless_storage;
+}
+
+sub _as_hash {
+    my ($self,$instance) = @_;
+
+    my $st = $self->get_full_storage($instance);
+    return unless $st;
+
+    return $st->_as_hash;
+}
+
 package Moose::Meta::Attribute::Custom::Trait::MultiValued::Tagged;{
 sub register_implementation { 'Data::MultiValued::AttributeTrait::Tagged' }
 }