sub AUTOLOAD {
  my $self = shift;
  my ($package, $method) = (our $AUTOLOAD =~ m/^(.*)::(.*)$/);
  $method = "Foo::$method";
  return $self->$method(@_);
}