sub AUTOLOAD {
  my ($package, $method) = (our $AUTOLOAD =~ m/^(.*)::(.*)$/);
  goto &{"Foo::$method"};
}