diff options
author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-10 12:53:24 +0000 |
---|---|---|
committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-10 15:04:15 +0000 |
commit | 9b3887ba26cfa17344567d9a1b89921892d02dda (patch) | |
tree | b9e8d8c63cfb158cb5a9e6c9f71946e35ffdbcee /Data-MultiValued/lib/Data/MultiValued/Ranges.pm | |
parent | ugly serialization helper role (diff) | |
download | data-multivalued-9b3887ba26cfa17344567d9a1b89921892d02dda.tar.gz data-multivalued-9b3887ba26cfa17344567d9a1b89921892d02dda.tar.bz2 data-multivalued-9b3887ba26cfa17344567d9a1b89921892d02dda.zip |
'clear' almost completely implemneted
Diffstat (limited to 'Data-MultiValued/lib/Data/MultiValued/Ranges.pm')
-rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/Ranges.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Data-MultiValued/lib/Data/MultiValued/Ranges.pm b/Data-MultiValued/lib/Data/MultiValued/Ranges.pm index 25a1eec..9c69626 100644 --- a/Data-MultiValued/lib/Data/MultiValued/Ranges.pm +++ b/Data-MultiValued/lib/Data/MultiValued/Ranges.pm @@ -55,9 +55,14 @@ sub get { } sub clear { - my ($self) = @_; + my ($self,%args) = validated_hash( + \@_, + from => { isa => Num|Undef, optional => 1, }, + to => { isa => Num|Undef, optional => 1, }, + ); - $self->_clear_storage; + $self->_storage->clear(\%args); } + 1; |