File Coverage

blib/lib/Perl6/Pod/Block/SEMANTIC.pm
Criterion Covered Total %
statement 12 16 75.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 22 72.7


line stmt bran cond sub pod time code
1             #===============================================================================
2             #
3             # DESCRIPTION: Class for semantic blocks
4             #
5             # AUTHOR: Aliaksandr P. Zahatski,
6             #===============================================================================
7             package Perl6::Pod::Block::SEMANTIC;
8 3     3   16 use strict;
  3         6  
  3         91  
9 3     3   16 use warnings;
  3         5  
  3         83  
10 3     3   1790 use Perl6::Pod::Block;
  3         7  
  3         1277  
11 3     3   19 use base 'Perl6::Pod::Block';
  3         6  
  3         480  
12             our $VERSION = '0.01';
13              
14             sub to_xhtml {
15 0     0 0   my ( $self, $to ) = @_;
16 0           $to->switch_head_level(1);
17 0           $to->w->raw('

')->print($self->name)->raw('

');
18 0           $to->visit_childs($self);
19             }
20             1;
21              
22