<%PERL>
my $jifty_dirname = Jifty::Util->jifty_root."/";
my $app_dirname = Jifty::Util->app_root."/lib/";
$n =~ s/::/\//g;
my @options = (
    $app_dirname.$n.".pod",
    $app_dirname.$n.".pm",
    $jifty_dirname.$n.".pod",
    $jifty_dirname.$n.".pm");
my $total_body;
foreach my $file (@options) {
    next unless -r "$file";
    local $/;
    my $fh;
    open $fh, "$file" or next;
    $total_body = <$fh>;
    close $fh;
}
my $body;
my $schema;
use Pod::Simple::HTML;
my $converter = Pod::Simple::HTML->new();
if($n !~ /^Jifty\//) {
    if ($total_body =~ /package (.*?)::Schema;(.*)package/ismx) {
         $schema = $2;
    }
}
$converter->output_string( \$body );
$converter->parse_string_document($total_body);
$body =~ s{.*?]+>}{}s;
$body =~ s{\s*