Revision 102e10e5
Von Sven Schöling vor etwa 11 Jahren hinzugefügt
| SL/InstanceConfiguration.pm | ||
|---|---|---|
| 44 | 44 |
my $method = $AUTOLOAD; |
| 45 | 45 |
$method =~ s/.*:://; |
| 46 | 46 |
|
| 47 |
return if $method eq 'DESTROY'; |
|
| 48 |
|
|
| 47 | 49 |
if ($method =~ m/^get_/) {
|
| 48 | 50 |
$method = substr $method, 4; |
| 49 | 51 |
return $self->data->{$method} if exists $self->data->{$method};
|
Auch abrufbar als: Unified diff
Nicht versuchen DESTROY mit AUTOLOAD zu dispatchen.