372 |
|
|
373 |
|
} |
374 |
|
|
375 |
+ |
sub allfeatures() |
376 |
+ |
{ |
377 |
+ |
my $self=shift; |
378 |
+ |
my @feature_vars=$self->list_variables(); |
379 |
+ |
my @features; |
380 |
+ |
push (@features, @feature_vars, qw(LIB LIBDIR INCLUDE USE)); |
381 |
+ |
|
382 |
+ |
# Make sure feature name is uppercase: |
383 |
+ |
$feature =~ tr/a-z/A-Z/; |
384 |
+ |
$feature_data={}; |
385 |
+ |
map |
386 |
+ |
{ |
387 |
+ |
if (exists ($self->{$_})) |
388 |
+ |
{ |
389 |
+ |
if (ref($self->{$_}) eq 'ARRAY') |
390 |
+ |
{ |
391 |
+ |
$feature_data->{$_} = join(" ",@{$self->{$_}}); |
392 |
+ |
} |
393 |
+ |
else |
394 |
+ |
{ |
395 |
+ |
$feature_data->{$_} = $self->{$_}; # A string |
396 |
+ |
} |
397 |
+ |
} |
398 |
+ |
} @features; |
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; |