File Coverage

blib/lib/Khonsu/Text.pm

Criterion	Covered	Total	%
statement	72	72	100.0
branch	33	36	91.6
condition	16	19	84.2
subroutine	6	6	100.0
pod	0	2	0.0
total	127	135	94.0

package Khonsu::Text;

use parent 'Khonsu::Ra';

sub attributes {
	my $a = shift;
	return (
		text => {$a->RW, $a->STR},
		overflow => {$a->RW, $a->BOOL},
		indent => {$a->RW, $a->NUM, default => sub { 0 }},
		pad => {$a->RW, $a->STR},
		pad_end => {$a->RW, $a->STR},
		align => {$a->RW, $a->STR, default => sub { 'left' }},
		end_w => {$a->RW, $a->NUM},
		margin => {$a->RW, $a->NUM, default => sub { 5 }},
		$a->FONT,
		$a->POINTS
	);
}

sub add {
	my ($self, $file, %attributes) = @_;

	my $font = $self->font->load($file, %{ delete $attributes{font} || {} });

	if (!$attributes{x} && !$attributes{align}) {
		$attributes{x} = $file->page->x;
		$attributes{y} = $attributes{y} || $file->page->y;
		$attributes{h} = $file->page->remaining_height();
		$attributes{w} = $file->page->width();
	}

	$self->set_attributes(%attributes);

	my $size = $self->font->size;

	my $text = $file->page->current->text;

	$text->font($font, $size);

	$text->fillcolor($self->font->colour);

	my (%pos) = (
		l => $self->font->line_height,
		$self->get_points()
	);

	my $ypos = $file->page->h - ($pos{y} + $pos{l});

	my $max_height = $ypos - $pos{h};

	my $xpos = $pos{x};

	my $indent = $self->indent;

	my @paragraphs = split /\n/, $self->text;
	my $space = $text->advancewidth(" ");

	my @words;
	while ($ypos - $pos{l} >= $max_height && (scalar @paragraphs || scalar @words)) {
		unless (scalar @words) {
			my $next_line = shift @paragraphs;
			@words = split(/ /, $next_line);
			push @words, $1 if $next_line !~ m/^\s+$/ && $next_line =~ m/(\s+)$/;
			push @words, $next_line unless scalar @words;
			if ($indent) {
				unshift @words, map { "" } 0 .. $indent;
			}
		}
		my $word = shift @words;
		$word =~ s/\t/         /g;
		my ($width, @line) = ($text->advancewidth($word), ());
		while ($width <= $pos{w} && defined $word) {
			push @line, $word;
			$word = shift @words;
			if (defined $word) {
				$width += $space unless $word =~ m/^(\s+)$/;
				$word =~ s/\t/        /g;
				$width += $text->advancewidth($word);
			}
		}
		$self->end_w($xpos + $width);
		if ($word) {
			unshift @words, $word if (scalar @words);
		} elsif ($self->pad) {
			my $pad_width = $text->advancewidth($self->pad);
			my $pad_end_width = $self->pad_end ? $text->advancewidth($self->pad_end) : 0;
			my $left = int(($pos{w} - ($width + $pad_end_width)) / $pad_width);
			push @line, $self->pad x $left if $left;
			push @line, $self->pad_end if $self->pad_end;
			$width = $pos{w};
		}

		my $align = $self->align;
		if ($align eq 'center') {
			$xpos = $xpos + (($pos{w} - $width) / 2);
		} elsif ($align eq 'right') {
			$xpos = $xpos + ($pos{w} - $width);
			$self->end_w($xpos + $pos{w});
		}
		$text->translate($xpos, $ypos);
		$text->text(join(" ", @line));
		$ypos -= $pos{l};
	}

	$file->page->y($file->page->h - (($ypos + $pos{l}) - $self->margin));

	if (scalar @words) {
		push @paragraphs, join " ", @words;
	}

	if (!$self->overflow && scalar @paragraphs) {
		$file->page->next($file);
		return $self->add($file, text => join "\n", @paragraphs);
	}

	return $file;
}

1;