Select Code to Download

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

if (my $methodref = $self->{xmms}->can($AUTOLOAD)) {
   {
...
   }
   $methodref->($self->{xmms});
}