# | Line 399 | Line 399 | sub allfeatures() | |
---|---|---|
399 | return $feature_data; | |
400 | } | |
401 | ||
402 | + | sub reset() |
403 | + | { |
404 | + | my $self=shift; |
405 | + | my ($entryname)=@_; |
406 | + | |
407 | + | if (exists($self->{$entryname})) |
408 | + | { |
409 | + | $self->{$entryname} = undef; |
410 | + | } |
411 | + | } |
412 | + | |
413 | 1; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |