Perldoc::Server::View::Pod2HTML - Catalyst View

Perldoc-Server documentation Contained in the Perldoc-Server distribution.

Index

Code Index:

NAME

Top

Perldoc::Server::View::Pod2HTML - Catalyst View

DESCRIPTION

Top

Catalyst View.

AUTHOR

Top

Jon Allen

LICENSE

Top

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

Perldoc-Server documentation Contained in the Perldoc-Server distribution. 
package Perldoc::Server::View::Pod2HTML;

use strict;
use warnings;
use 5.010;
use parent 'Catalyst::View::TT';

use Perldoc::Server::Convert::html;

sub process {
  my ($self,$c) = @_;
  
  $c->stash->{pod2html}        = Perldoc::Server::Convert::html::convert($c, $c->stash->{title}, $c->stash->{pod});
  $c->stash->{page_index}      = Perldoc::Server::Convert::html::index($c, $c->stash->{title}, $c->stash->{pod});
  $c->stash->{page_template} //= 'pod2html.tt';
  
  $c->forward('View::TT');
}



1;