view release on metacpan or  search on metacpan

examples/mpc.pl  view on Meta::CPAN

		print $song{'file'}."\n";
	}
}
sub crossfade {
	if(defined($ARGV[1])) {
		$x->set_fade($ARGV[1]);
	} else {
		help;
	}
}
sub update { $x->updatedb(); }
sub version { print "mpd version: ".$x->{version}."\n"; }

# main() - Main sub
sub main
{
  status if !$ARGV[0];
  help if $ARGV[0] !~ /^(add|del|play|next|prev|pause|stop|seek|clear|shuffle|move|playlist|listall|ls|lsplaylists|load|save|rm|volume|repeat|random|search|crossfade|update|version)$/;
  goto &{ $ARGV[0] };
}

lib/Audio/MPD.pm  view on Meta::CPAN

    $self->_send_command("kill\n");
}




# implemented by password trigger (from moose)



sub updatedb {
    my ($self, $path) = @_;
    $path ||= '';
    $self->_send_command("update $path\n");
}



sub urlhandlers {
    my ($self) = @_;
    return $self->_cooked_command_strip_first_field("urlhandlers\n");