sub Invoker::first    { shift; &first_callback }
sub Invoker::last     { shift; &last_callback }
sub Invoker::AUTOLOAD { -1 }

sub invoker 
{ 
  my $name = shift; 
  Invoker->$name(@_); 
}