{
  no strict 'refs';
  for my $method (qw/is_paused is_playing play pause stop/) {
      *$method = sub { $_[0]->{xmms}->$method };
  }
}