diff options
Diffstat (limited to 'Data-MultiValued/lib/Data/MultiValued/TagsAndRanges.pm')
-rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/TagsAndRanges.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/Data-MultiValued/lib/Data/MultiValued/TagsAndRanges.pm b/Data-MultiValued/lib/Data/MultiValued/TagsAndRanges.pm index e940449..82e3271 100644 --- a/Data-MultiValued/lib/Data/MultiValued/TagsAndRanges.pm +++ b/Data-MultiValued/lib/Data/MultiValued/TagsAndRanges.pm @@ -19,6 +19,20 @@ sub _build__storage { Data::MultiValued::TagContainerForRanges->new(); } +sub _rebless_storage { + my ($self) = @_; + + bless $self->{_storage},'Data::MultiValued::TagContainerForRanges'; + $self->_storage->_rebless_storage; +} + +sub _as_hash { + my ($self) = @_; + + my $ret = $self->_storage->_as_hash; + return {_storage=>$ret}; +} + sub set { my ($self,%args) = validated_hash( \@_, |