| 25 |
|
# dependencies() : return a list of dependency objects |
| 26 |
|
# store(location) : Save object to given file |
| 27 |
|
# restore(location) : Restore object from specified file |
| 28 |
+ |
# reset() : Clean out all the features |
| 29 |
|
|
| 30 |
|
package BuildSystem::Tool; |
| 31 |
|
require 5.004; |
| 100 |
|
@{$self->{features}{$name}}=@value; |
| 101 |
|
} |
| 102 |
|
|
| 103 |
+ |
sub reset { |
| 104 |
+ |
my $self=shift; |
| 105 |
+ |
undef $self->{features}; |
| 106 |
+ |
undef $self->{'features_ordered'}; |
| 107 |
+ |
undef $self->{reqobjs}; |
| 108 |
+ |
undef $self->{requireposition}; |
| 109 |
+ |
} |
| 110 |
|
|
| 111 |
|
sub _newfeature { |
| 112 |
|
my $self=shift; |
