sub AUTOLOAD {
 return if $AUTOLOAD =~ /::DESTROY$/;
 # Autoload cadr, caddr, etc.
 if ($AUTOLOAD =~ /::c([ad]+)([ad])r$/) {
  no strict 'refs';
  my $meth1 = "c$1r";
  my $meth2 = "c$2r";
  *{$AUTOLOAD} = sub { shift->$meth2->$meth1 };
  goto &$AUTOLOAD;
 }
 carp $AUTOLOAD =~ /(.*)::(.*)$/
  ? qq!Couldn't load sub/method "$2" via package "$1"!
  : "Couldn't load subroutine $AUTOLOAD";
}