File Coverage

lib/Kwiki/PreformattedBlocks.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


line stmt bran cond sub pod time code
1             package Kwiki::PreformattedBlocks;
2 1     1   26017 use Kwiki::Plugin -Base;
  0            
  0            
3             our $VERSION = '0.11';
4              
5             const class_id => 'preformatted_blocks';
6              
7             sub register {
8             my $registry = shift;
9             $registry->add(wafl => pre => 'Kwiki::PreformattedBlocks::Wafl');
10             }
11              
12             package Kwiki::PreformattedBlocks::Wafl;
13             use base 'Spoon::Formatter::WaflBlock';
14              
15             sub to_html {
16             join '',
17             qq{
\n}, 
18             $self->block_text,
19             "\n";
20             }
21              
22             __DATA__