File Coverage

lib/Kwiki/ParagraphBlocks.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::ParagraphBlocks;
use Kwiki::Plugin -Base;
our $VERSION = '0.12';

const class_id => 'paragraph_blocks';
const class_title => 'Paragraph Blocks';

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

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

sub to_html {
    my $block = Kwiki::Formatter::Paragraph->new(
        hub => $self->hub,
        text => $self->block_text,
    );
    $block->parse_phrases;
    my $html = $block->to_html;
    $html =~ s/.*?\n?(.*)<\/p>.*/$1/s;
    $html =~ s/\n/\n/g;
    $html =~ s/^( +)/' ' x length($1)/gem;
    return "\n$html";
}

__DATA__