"fast" hash/bless for serialization

2 files changed, 32 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' }
 }
diff --git a/Data-MultiValued/lib/Data/MultiValued/Tags.pm b/Data-MultiValued/lib/Data/MultiValued/Tags.pm
index 0325f61..2262d8a 100644
--- a/Data-MultiValued/lib/Data/MultiValued/Tags.pm
+++ b/Data-MultiValued/lib/Data/MultiValued/Tags.pm
@@ -19,6 +19,19 @@ sub _build__storage {
     Data::MultiValued::TagContainer->new();
 }
 
+sub _rebless_storage {
+    my ($self) = @_;
+
+    bless $self->{_storage},'Data::MultiValued::TagContainer';
+}
+
+sub _as_hash {
+    my ($self) = @_;
+
+    my %ret = %{$self->_storage};
+    return {_storage=>\%ret};
+}
+
 sub set {
     my ($self,%args) = validated_hash(
         \@_,