lib/Frey/Pod.pm

package Frey::Pod;
use Moose;

=head1 NAME

Frey::Pod - display documentation

=cut

extends 'Frey::ClassLoader';
with 'Frey::Web';

has 'class' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

use File::Slurp;
use Data::Dump qw/dump/;

sub html {
        my ( $self, $req ) = @_;
        my $f = { $req->params };
        my $class = delete( $f->{class} ) || $self->class;
        $req->print( $self->page( title => $class, body => $self->markup( $class ) ) );
}

sub markup {
        warn "## markup ",dump( @_ );
        my ( $self, $class ) = @_;
        use Pod::Simple::HTML;
        my $pod = read_file( $self->package_path( $class ) );
        my $converter = Pod::Simple::HTML->new();
        my $body;
        my $my_classes = join('|', $self->classes);
        warn "my_classes: $my_classes";
        $converter->output_string( \$body );
        $converter->parse_string_document($pod);
        $body =~ s{.*?<body [^>]+>}{}s;
        $body =~ s{</body>\s*</html>\s*$}{};
        $body =~ s{<a href="http://search\.cpan\.org/perldoc\?($my_classes)"([^>]*)>}{<a href="/pod/$1"$2>}g;
        $body =~ s!</li>\n\t<ul>!<ul>!;
        $body =~ s!</ul>!</ul></li>!;
        $body =~ s!<p></p>!!;
#       $body =~ s!<a name=!<a id=!g;
        $body =~ s!__index__!index!g;
        return "<h1>$class</h1>$body";
}

1;

1	dpavlin	126	package Frey::Pod;
2			use Moose;
3
4			=head1 NAME
5
6			Frey::Pod - display documentation
7
8			=cut
9
10			extends 'Frey::ClassLoader';
11			with 'Frey::Web';
12
13			has 'class' => (
14			is => 'rw',
15			isa => 'Str',
16			required => 1,
17			);
18
19			use File::Slurp;
20			use Data::Dump qw/dump/;
21
22			sub html {
23			my ( $self, $req ) = @_;
24			my $f = { $req->params };
25			my $class = delete( $f->{class} ) \|\| $self->class;
26			$req->print( $self->page( title => $class, body => $self->markup( $class ) ) );
27			}
28
29			sub markup {
30			warn "## markup ",dump( @_ );
31			my ( $self, $class ) = @_;
32			use Pod::Simple::HTML;
33			my $pod = read_file( $self->package_path( $class ) );
34			my $converter = Pod::Simple::HTML->new();
35			my $body;
36			my $my_classes = join('\|', $self->classes);
37			warn "my_classes: $my_classes";
38			$converter->output_string( \$body );
39			$converter->parse_string_document($pod);
40			$body =~ s{.*?<body [^>]+>}{}s;
41			$body =~ s{</body>\s</html>\s$}{};
42			$body =~ s{<a href="http://search\.cpan\.org/perldoc\?($my_classes)"([^>]*)>}{<a href="/pod/$1"$2>}g;
43			$body =~ s!</li>\n\t<ul>!<ul>!;
44			$body =~ s!</ul>!</ul></li>!;
45			$body =~ s!<p></p>!!;
46			# $body =~ s!<a name=!<a id=!g;
47			$body =~ s!__index__!index!g;
48			return "<h1>$class</h1>$body";
49			}
50
51			1;
52