/[Frey]/branches/no-pager/lib/Frey/Pod.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /branches/no-pager/lib/Frey/Pod.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 178 - (hide annotations)
Sun Aug 31 17:40:33 2008 UTC (15 years, 7 months ago) by dpavlin
Original Path: trunk/lib/Frey/Pod.pm
File size: 1138 byte(s)
markup doesn't really take arguments!
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 dpavlin 178 my $self = shift;
31     my $class = $self->class;
32 dpavlin 126 use Pod::Simple::HTML;
33 dpavlin 128 my $path = eval { $self->package_path( $class ) };
34     return if $@;
35     my $pod = read_file( $path );
36 dpavlin 126 my $converter = Pod::Simple::HTML->new();
37     my $body;
38     my $my_classes = join('|', $self->classes);
39     $converter->output_string( \$body );
40     $converter->parse_string_document($pod);
41     $body =~ s{.*?<body [^>]+>}{}s;
42     $body =~ s{</body>\s*</html>\s*$}{};
43 dpavlin 130 $body =~ s!%3A%3A!::!g;
44 dpavlin 138 $body =~ s{<a href="http://search\.cpan\.org/perldoc\?($my_classes)"([^>]*)>}{<a href="/~/$1"$2>}g;
45 dpavlin 126 $body =~ s!</li>\n\t<ul>!<ul>!;
46     $body =~ s!</ul>!</ul></li>!;
47     $body =~ s!<p></p>!!;
48     $body =~ s!__index__!index!g;
49 dpavlin 128 return $body;
50 dpavlin 126 }
51    
52     1;
53    

  ViewVC Help
Powered by ViewVC 1.1.26