&{$self->{xmms}->can($AUTOLOAD) || die "no $AUTOLOAD method"}($self->{xmms});

##</code><code>##

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