Реализация поставщика OpenID в Perl

Это могло бы быть выстрелом в темноте, но я пытаюсь реализовать Поставщика OpenID в Perl с помощью Сети:: OpenID:: модуль Сервера. Документация для всего процесса сбивает с толку и редка.

Если кто-либо успешно реализовал поставщика в Perl, Вы могли бы вставить некоторые фрагменты кода?