<%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*