File Coverage

blib/lib/Khonsu/Text/H2.pm
Criterion Covered Total %
statement 10 10 100.0
branch 1 2 50.0
condition 3 7 42.8
subroutine 3 3 100.0
pod 0 2 0.0
total 17 24 70.8


line stmt bran cond sub pod time code
1             package Khonsu::Text::H2;
2              
3 5     5   134 use parent 'Khonsu::Text';
  5         36  
  5         53  
4              
5             sub BUILD {
6 4     4 0 23 my ($self, %params) = @_;
7 4   50     57 $self->font->size($params{font_size} || 40);
8 4   50     42 $self->font->line_height($params{line_height} || 30);
9             }
10              
11             sub add {
12 94     94 0 861 my ($self, $file, %attributes) = @_;
13 94   33     1051 $attributes{h} ||= $self->font->size;
14 94 50       884 $file->toc->outline($file, 'h2', %attributes) if $attributes{toc};
15 94         864 return $self->SUPER::add($file, %attributes);
16             }
17              
18             1;