File Coverage

blib/lib/Khonsu/Text/H1.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition	3	7	42.8
subroutine	3	3	100.0
pod	0	2	0.0
total	18	24	75.0

package Khonsu::Text::H1;

use parent 'Khonsu::Text';

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

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

1;