move up a level

1 files changed, 0 insertions, 68 deletions

diff --git a/Data-MultiValued/lib/Data/MultiValued/Ranges.pm b/Data-MultiValued/lib/Data/MultiValued/Ranges.pm
deleted file mode 100644
index 9c69626..0000000
--- a/Data-MultiValued/lib/Data/MultiValued/Ranges.pm
+++ /dev/null
@@ -1,68 +0,0 @@
-package Data::MultiValued::Ranges;
-use Moose;
-use MooseX::Params::Validate;
-use Moose::Util::TypeConstraints;
-use MooseX::Types::Moose qw(Num Str Undef Any);
-use Data::MultiValued::Exceptions;
-use Data::MultiValued::RangeContainer;
-
-# ABSTRACT: Handle values with tags and validity ranges
-
-has _storage => (
-    is => 'rw',
-    isa => class_type('Data::MultiValued::RangeContainer'),
-    init_arg => undef,
-    lazy_build => 1,
-);
-
-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(
-        \@_,
-        from => { isa => Num|Undef, optional => 1, },
-        to => { isa => Num|Undef, optional => 1, },
-        value => { isa => Any, },
-    );
-
-    $self->_storage->set_or_create(\%args)
-         ->{value} = $args{value};
-}
-
-sub get {
-    my ($self,%args) = validated_hash(
-        \@_,
-        at => { isa => Num|Undef, optional => 1, },
-    );
-
-    $self->_storage->get(\%args)
-         ->{value};
-}
-
-sub clear {
-    my ($self,%args) = validated_hash(
-        \@_,
-        from => { isa => Num|Undef, optional => 1, },
-        to => { isa => Num|Undef, optional => 1, },
-    );
-
-    $self->_storage->clear(\%args);
-}
-
-
-1;