PERLER / Catalyst-Controller-POD-1.0.0 / lib / Catalyst / Controller / POD / POM / View.pm 
#
# This file is part of Catalyst-Controller-POD
#
# This software is Copyright (c) 2011 by Moritz Onken.
#
# This is free software, licensed under:
#
#   The (three-clause) BSD License
#
package Catalyst::Controller::POD::POM::View;
BEGIN {
  $Catalyst::Controller::POD::POM::View::VERSION = '1.0.0';
}
use strict;
use warnings;

use base "Pod::POM::View::HTML";

my $HTML_PROTECT = 1;

sub _root {
    no strict 'refs';
    my $self = shift;
    if(@_) {
        $self->{_root} = $_[0];
    }
    return $self->{_root};
}


sub _module {
    no strict 'refs';
    my $self = shift;
    if(@_) {
        $self->{_module} = $_[0];
    }
    return $self->{_module};
}
sub _toc {
    no strict 'refs';
    my $self = shift;
    if(@_) {
        $self->{_toc} = $_[0];
    }
    return $self->{_toc};
}

sub view_begin {
    my ($self, $begin) = @_;
    return '' unless $begin->format() =~ /\bhtml\b/;
    $HTML_PROTECT = 1;
    my $output = $begin->content();
    return $output;
}


sub view_pod {
    my ($self, $pod) = @_;
    my $toc = $self->_toc;
    my $permalink = $self->_root . "?permalink=" . $self->_module; # There has to be a better way
    return qq~
<html>
<head>
<link rel="stylesheet" href="http://search.cpan.org/s/style.css" type="text/css" />

</head>
<body bgcolor=\"#ffffff\">
<script type="text/javascript">POD.setTOC($toc);</script>
<div id="permalink"><a href="$permalink">Permalink</a></div>
<div class="pod">
~
   . $pod->content->present($self)
        . "<script>prettyPrint()</script></div></body></html>\n";
}

sub view_verbatim {
    my ($self, $text) = @_;

    for ($text) {
        s/&/&amp;/g;
        s/</&lt;/g;
        s/>/&gt;/g;
    }
    foreach my $i (1..10) {
        my $t;
        my $last = 0;
        for(split(/\n/, $text)) {
            $_ =~ s/^(.)//;
            if($1 ne " ") {
                $last = 1;
                last;
            }
            $t .= $_.$/;
        }
        $text = $t unless($last);
        last if($last);
    }

    return "<pre class=\"prettyprint lang-perl\">$text</pre>\n\n";
}

sub view_seq_link_transform_path {
    my($self,$page) = @_;
    return $self->_root."/module/$page";  
}
{ 
    no warnings 'redefine';
    sub Pod::POM::View::HTML::make_href  {
        my($url, $title) = @_;
    	if (!defined $url) {
            $url = "$title";
        }

        $title = $url unless defined $title;
        return qq{<a href="$url" onclick="return POD.proxyLink(this)">$title</a>};
    }
}

sub view_head1 {
    my ($self, $head1) = @_;
    my $title = $head1->title->present($self);
    my $id = "section-".$self->_module."-".$title;
    $id =~ s/<.*?>//g;
    $id =~ s/'/\\'/g;
    return "<h1 id='$id'>$title</h1>\n\n"
        . $head1->content->present($self);
}


sub view_head2 {
    my ($self, $head2) = @_;
    my $title = $head2->title->present($self);
    my $id = "section-".$self->_module."-".$title;
    $id =~ s/<.*?>//g;
    $id =~ s/'/\\'/g;
    return "<h2 id='$id'>$title</h2>\n\n"
        . $head2->content->present($self);
}


sub view_head3 {
    my ($self, $head3) = @_;
    my $title = $head3->title->present($self);
    my $id = "section-".$self->_module."-".$title;
    $id =~ s/<.*?>//g;
    $id =~ s/'/\\'/g;
    return "<h3 id='$id'>$title</h3>\n\n"
        . $head3->content->present($self);
}


sub view_head4 {
    my ($self, $head4) = @_;
    my $title = $head4->title->present($self);
    my $id = "section-".$self->_module."-".$title;
    $id =~ s/<.*?>//g;
    $id =~ s/'/\\'/g;
    return "<h4 id='$id'>$title</h4>\n\n"
        . $head4->content->present($self);
}

1;

__END__
=pod

=head1 NAME

Catalyst::Controller::POD::POM::View

=head1 VERSION

version 1.0.0

=head1 AUTHOR

Moritz Onken

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2011 by Moritz Onken.

This is free software, licensed under:

  The (three-clause) BSD License

=cut