diff options
Diffstat (limited to 'Data-MultiValued/lib/Data/MultiValued/Tags.pm')
| -rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/Tags.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Data-MultiValued/lib/Data/MultiValued/Tags.pm b/Data-MultiValued/lib/Data/MultiValued/Tags.pm index 2262d8a..fbf7948 100644 --- a/Data-MultiValued/lib/Data/MultiValued/Tags.pm +++ b/Data-MultiValued/lib/Data/MultiValued/Tags.pm @@ -54,9 +54,12 @@ sub get { } sub clear { - my ($self) = @_; + my ($self,%args) = validated_hash( + \@_, + tag => { isa => Str, optional => 1, }, + ); - $self->_clear_storage; + $self->_storage->clear(\%args); } 1; |