cpan_links.py

# Drop into ~/Library/Application Support/Colloquy/PlugIns

import re
from Foundation import *

get_module = re.compile(r'(?:cpan:)?(?P<module>\w+(?:::\w+)*)$')

def open_perldoc(module):
    url = NSURL.URLWithString_('http://search.cpan.org/perldoc/' + module)
    NSWorkspace.sharedWorkspace().openURL_(url)

def handleClickedLink(url, view):
    matches = get_module.match(url.absoluteString())
    if (matches):
        open_perldoc(matches.group('module'))
        return True
    return False