Select Code to Download

sub new {
   my ($class) = @_;
...
   $self->{xmms} = Xmms::Remote->new;
   # ... more stuff ...
}

sub is_paused { $_[0]->{xmms}->is_paused; }
sub is_playing { $_[0]->{xmms}->is_playing; }
sub pause { $_[0]->{xmms}->pause; }
sub play { $_[0]->{xmms}->play; }
sub stop { $_[0]->{xmms}->stop; }

sub AUTOLOAD {
   my ($self) = @_;
...

}

      $self->{xmms}->$method;