File Coverage

blib/lib/Khonsu/Shape/Line.pm

Criterion	Covered	Total	%
statement	10	14	71.4
branch	3	6	50.0
condition			n/a
subroutine	2	2	100.0
pod	0	1	0.0
total	15	23	65.2

package Khonsu::Shape::Line;

use parent 'Khonsu::Shape';

sub shape {
	my ($self, $file, $shape, %args) = @_;
	$shape->strokecolor($args{fill_colour});
	$shape->move($args{x}, $file->page->h - ($args{y} + 1));
	if ($args{dash}) {
		$shape->linedash(@{$args{dash}});
	} elsif ($args{type} eq 'dots') {
		$shape->linedash(1, 1);
	} elsif ($args{type} eq 'dashed') {
		$shape->linedash(5, 5);
	}
	$shape->linejoin();
	$shape->line($args{ex}, $file->page->h - ($args{ey} + 1));
	$shape->stroke;
}

1;