Help for this page

Select Code to Download

Select or download this
```
sub DESTROY {}
```

Select or download this

my $name = $AUTOLOAD;
$name =~ s/.*://;   # strip fully-qualified portion
...
unless (exists $self->{_permitted}->{$name} ) {
    croak "Can't access `$name' field in class $type";
}