File Coverage

blib/lib/SVGPDF/Polyline.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	7	10	70.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	52	57	91.2

#! perl

use v5.26;
use Object::Pad;
use utf8;
use Carp;

class SVGPDF::Polyline :isa(SVGPDF::Element);

method process () {
    $self->process_polyline(0);
}

method process_polyline ( $close ) {
    my $atts = $self->atts;
    my $xo   = $self->xo;
    return if $atts->{omit};	# for testing/debugging.

    my ( $points, $tf ) = $self->get_params( $atts, qw(points:s transform:s) );

    my @d = $self-> getargs($points);

    my $t = $points;
    $t = substr($t,0,20) . "..." if length($t) > 20;
    $self->_dbg( $self->name, " points=\"$t\"" );
    $self->_dbg( "+ xo save" );
    $xo->save;

    $self->set_graphics;
    $self->set_transform($tf) if $tf;

    if ( @d ) {
	$xo->move( $d[0], $d[1] );
	$xo->polyline( @d[2 .. $#d] );
	$xo->close if $close;
	$self->_paintsub->();
    }

    $self->_dbg( "- xo restore" );
    $xo->restore;
    $self->css_pop;
}


1;