if (my $methodref = $self->{xmms}->can($AUTOLOAD)) {
   {
      no strict 'refs';
      *$AUTOLOAD = sub { unshift @_, shift()->{xmms}; goto &$methodref };
   }
   $methodref->($self->{xmms});
}