# allows you to call hooks like subs - # use base 'Milkbone::AllHooks'; # hookname(@args); package Milkbone::AllHooks; use Milkbone; sub AUTOLOAD { my $hook = $AUTOLOAD; $hook = (split(/::/, $hook))[-1]; hook($hook, @_); } 1;