File Coverage

blib/lib/Khonsu/Font.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition	3	5	60.0
subroutine	8	8	100.0
pod	0	3	0.0
total	35	40	87.5

package Khonsu::Font;

use parent 'Khonsu::Ra';

sub attributes {
	my $a = shift;
	return (
		colour => {$a->RW, $a->STR, default => sub { '#000' }},
		size => {$a->RW, $a->NUM, default => sub { 9 }},
		family => {$a->RW, $a->STR, default => sub { 'Times' }},
		loaded => {$a->RW, $a->DHR},
		line_height => {$a->RW, $a->NUM, default => sub { $_[0]->size }},
	);
}

sub load {
	my ($self, $file, %attributes) = @_;
	$self->set_attributes(%attributes);
	if (!$attributes{line_height} && $self->size > $self->line_height) {
		$self->line_height($self->size);
	}
	return $self->find($file, $self->family);
}

sub find {
	my ($self, $file, $family, $enc) = @_;
	my $loaded = $self->loaded;
	unless ($loaded->{$family}) {
		$loaded->{$family} = $file->pdf->corefont($family, -encoding => $enc || 'latin1');
		$self->loaded($loaded);
	}
	return $loaded->{$family};

}


1;