From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

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;