sub callback_method
{
   my ($method, $invocant) = splice( @_, 0, 2 );
   $invocant->$method( @_ );
}