sub new {
   my ($class) = @_;

   my ($self, $pid);
   $self = bless +{}, $class;
   $self->{xmms} = Xmms::Remote->new;
   # ... more stuff ...
}

##</code><code>##

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; }

##</code><code>##

sub AUTOLOAD {
   my ($self) = @_;
   my ($method);
   ($method = $AUTOLOAD) =~ s/.*://;
   if ($self->{xmms}->can($method)) {
      $self->{xmms}->

}


##</code><code>##

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