use Carp;
use vars '$AUTOLOAD';  # in case strict is on

AUTOLOAD {
  my ($pkg, $func) = $AUTOLOAD =~ /(.*)::(.*)/;
  my $cref = $pkg->can($func) or
    carp "no such method $func in $pkg";
  unshift @_, $pkg;
  goto &$cref;
}