Revision 102e10e5
Von Sven Schöling vor mehr als 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.