From 04c994801b13d881b9a11dce6080f247af7ac1a9 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@thenautilus.net>
Date: Thu, 10 Nov 2011 12:11:38 +0000
Subject: json-ify, works everywhere
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

ranges now use 'undef' instead of infs… damn json
infinity is not representable in json…
---
 Data-MultiValued/lib/Data/MultiValued/Ranges.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'Data-MultiValued/lib/Data/MultiValued/Ranges.pm')

diff --git a/Data-MultiValued/lib/Data/MultiValued/Ranges.pm b/Data-MultiValued/lib/Data/MultiValued/Ranges.pm
index b2acdd4..25a1eec 100644
--- a/Data-MultiValued/lib/Data/MultiValued/Ranges.pm
+++ b/Data-MultiValued/lib/Data/MultiValued/Ranges.pm
@@ -19,6 +19,19 @@ sub _build__storage {
     Data::MultiValued::RangeContainer->new();
 }
 
+sub _rebless_storage {
+    my ($self) = @_;
+
+    bless $self->{_storage},'Data::MultiValued::RangeContainer';
+}
+
+sub _as_hash {
+    my ($self) = @_;
+
+    my %ret = %{$self->_storage};
+    return {_storage=>\%ret};
+}
+
 sub set {
     my ($self,%args) = validated_hash(
         \@_,
-- 
cgit v1.2.3