sub AUTOLOAD {
  my ($pkg, $attr) = $AUTOLOAD =~ /(.*)::(.*)/;

  *{$attr} = sub { return $_[0]->{$attr} };

  return $_[0]->{$attr};
}