# untested
for my $method (qw(is_paused is_playing play pause)) {
   no strict 'refs';
   *{__PACKAGE__."::$method"} = 
           sub { $_[0]->{xmms}->$method };
}