File Coverage

lib/Kwiki/Formatter/Pod.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Kwiki::Formatter::Pod;
use Spoon::Formatter -Base;
use Kwiki::Installer -base;
our $VERSION = '0.11';

const top_class => 'Kwiki::Formatter::Pod::Top';
const class_title => 'Pod Formatter';

package Kwiki::Formatter::Pod::Top;
use base 'Spoon::Formatter::Unit';

sub parse {
    $self->hub->css->add_file('formatter.css');
    return $self;
}

sub to_html {
    require Pod::Simple::HTML;
    my $source = $self->text;
    my $result;
    my $parser = Kwiki::Formatter::Pod::Simple::HTML->new;
    $parser->kwiki_hub($self->hub);
    $parser->output_string(\$result);
    eval {
        $parser->parse_string_document($source);
    };
    return "\n$source\n$@\n\n"
      if $@ or not $result;
    $result =~ s/.*(.*)<\/body>.*/$1/s;
    return qq{\n$result};
}

package Kwiki::Formatter::Pod::Simple::HTML;
use base 'Pod::Simple::HTML';
use base 'Kwiki::Base';
use Kwiki ':char_classes';

field 'kwiki_hub';

sub do_link {
    my $token = shift;
    my $link = $token->attr('to');
    return super unless $link =~ /^[$WORD]+$/;
    my $section = $token->attr('section');
    $section = "#$section"
      if defined $section and length $section;
    $self->kwiki_hub->config->script_name . "?$link$section";
}

package Kwiki::Formatter::Pod;
__DATA__