my $name = $AUTOLOAD;
$name =~ s/.*://;   # strip fully-qualified portion

# this is new...
return 0 if($name eq 'DESTROY');

unless (exists $self->{_permitted}->{$name} ) {
    croak "Can't access `$name' field in class $type";
}