sub AUTOLOAD {
  my($attr) = $AUTOLOAD =~ /^.*::(.+)$/;
  return $_->{$attr}; 
}