| 13 |
|
# file() : return the db file |
| 14 |
|
# getarea(name,version) : return the object matching the name version |
| 15 |
|
# addarea(ConfigArea) : add a project |
| 16 |
+ |
# list() : list areas (retunns $name,$version pairs) |
| 17 |
|
# removearea(name,version) : remove the named project |
| 18 |
|
# link(dblocation) : link with specified db |
| 19 |
|
# unlink(dblocation) : remove link with a specified db |
| 56 |
|
$self->verbose("area found"); |
| 57 |
|
} |
| 58 |
|
} |
| 59 |
+ |
else { |
| 60 |
+ |
$self->verbose("Area $name $version not found"); |
| 61 |
+ |
} |
| 62 |
|
return $area; |
| 63 |
|
} |
| 64 |
|
|
| 74 |
|
$self->_save(); |
| 75 |
|
} |
| 76 |
|
|
| 77 |
+ |
sub list { |
| 78 |
+ |
my $self=shift; |
| 79 |
+ |
return @{$self->{projects}}; |
| 80 |
+ |
} |
| 81 |
+ |
|
| 82 |
|
sub removearea { |
| 83 |
|
my $self=shift; |
| 84 |
|
my $name=shift; |
