diff options
author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-10 12:11:38 +0000 |
---|---|---|
committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-10 12:24:14 +0000 |
commit | 04c994801b13d881b9a11dce6080f247af7ac1a9 (patch) | |
tree | 287151fb5d8b5a56a410cae1c45bf8d3d695efc5 /Data-MultiValued/lib/Data/MultiValued/Ranges.pm | |
parent | all traits, and some tests (diff) | |
download | data-multivalued-04c994801b13d881b9a11dce6080f247af7ac1a9.tar.gz data-multivalued-04c994801b13d881b9a11dce6080f247af7ac1a9.tar.bz2 data-multivalued-04c994801b13d881b9a11dce6080f247af7ac1a9.zip |
json-ify, works everywhere
ranges now use 'undef' instead of infs… damn json
infinity is not representable in json…
Diffstat (limited to 'Data-MultiValued/lib/Data/MultiValued/Ranges.pm')
-rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/Ranges.pm | 13 |
1 files changed, 13 insertions, 0 deletions
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( \@_, |