File Coverage

blib/lib/SVGPDF/Line.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	36	39	92.3

#! perl

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

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

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

    my ( $x1, $y1, $x2, $y2, $tf ) =
      $self->get_params( $atts, qw( x1:H y1:V x2:H y2:V transform:s ) );

    $self->_dbg( $self->name, " x1=$x1 y1=$y1 x2=$x2 y2=$y2" );
    $self->_dbg( "+ xo save" );
    $xo->save;

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

    $xo->move( $x1, $y1 );
    $xo->line( $x2, $y2 );
    $self->_paintsub->();

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


1;