<%PERL> my $jifty_dirname = Jifty::Util->jifty_root."/"; my $app_dirname = Jifty::Util->app_root."/lib/"; $n =~ s/::/\//g; my $app_name = Jifty->app_class(); 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*\s*$}{}; $n =~ s{/}{::}g; $m->print("

$n

"); $m->print("

"._('Schema')."

$schema
") if ($schema); $body =~ s{]*)>}{}g; $body =~ s!\n\t!; $body =~ s!

!!; $body =~ s!
print($body); <%ARGS> $Target => '&method=content' $n => 'Jifty'