File Coverage

lib/Kwiki/PodBlocks.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::PodBlocks;
use Kwiki::Plugin -Base;
use Kwiki::Installer -base;
our $VERSION = '0.11';

const class_id => 'pod_blocks';
const css_file => 'pod_blocks.css';

sub register {
    my $registry = shift;
    $registry->add(wafl => pod => 'Kwiki::PodBlocks::Wafl');
}

package Kwiki::PodBlocks::Wafl;
use base 'Spoon::Formatter::WaflBlock';

sub to_html {
    return join '',
      qq{\n},
      $self->pod2html($self->units->[0]),
      qq{\n};
}

sub pod2html {
    require Pod::Simple::HTML;
    my $source = shift;
    my $result;
    my $parser = Pod::Simple::HTML->new;
    $parser->output_string(\$result);
    eval {
        $parser->parse_string_document($source);
    };
    $result = $source if $@;
    $result =~ s/.*(.*)<\/body>.*/$1/s;
    return $result;
}

package Kwiki::PodBlocks;
__DATA__