1 ### vim:ft=zsh:foldmethod=marker
2 ## search.cpan.org backend for lookup
3 ## Copyright: 2009, Frank Terbeck <ft@bewatermyfriend.org>
5 LOOKUP_guard || return 1
6 [[ -n ${lookup_describe} ]] &&
7 printf '%s' 'search CPAN via search.cpan.org' && return 0
9 LOOKUP_guard -fd LOOKUP_help_${backend} ||
10 function LOOKUP_help_${backend}() {
11 LOOKUP_guard || return 1
12 printf 'usage: %s <query>\n' ${backend}
13 printf '\n Searches CPAN via search.cpan.org.\n'
14 printf '\nExamples:\n'
15 printf ' %% lookup %s Audio::Scan\n' ${backend}
17 LOOKUP_help && return 0
19 if [[ -n ${lookup_complete} ]] ; then
20 _message 'search.cpan.org query'
26 LOOKUP_query_handler || return 1
27 if [[ -z ${QUERY} ]] ; then
33 LOOKUP_browser "http://search.cpan.org/search?query=${QUERY}"