I think you'd be better off with closures.

See Schwern on Closures and Accessors

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