File Coverage

blib/lib/Khonsu/Text/H4.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

package Khonsu::Text::H4;

use parent 'Khonsu::Text';

sub BUILD {
	my ($self, %params) = @_;
	$self->font->size($params{font_size} || 25);
	$self->font->line_height($params{line_height} || 17);
}

sub add {
	my ($self, $file, %attributes) = @_;
	$attributes{h} ||= $self->font->size;
	$file->toc->outline($file, 'h4', %attributes) if $attributes{toc};
	return $self->SUPER::add($file, %attributes);
}

1;