Someone

AUTOLOAD { # magic..
  use vars; 
  no strict 'refs';
  our $AUTOLOAD;
  local $key = $AUTOLOAD; 
  $key =~ s/.*:://;
  croak "No such entry $key"
   unless exists $Defaults->{$key};
  *$AUTOLOAD = sub {
    my $self = shift; 
    print $key;
  };
  goto &$AUTOLOAD; 
}