sub AUTOLOAD { my ($namespace,$method) = (our $AUTOLOAD) =~ /(.*)::(.*)/; # ... }