File Coverage

blib/lib/SVGPDF/Defs.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	4	8	50.0
condition	0	3	0.0
subroutine	5	5	100.0
pod	0	1	0.0
total	34	44	77.2

#! perl

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

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

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

    $self->_dbg( "+", $self->name, " ====" );

    for ( $self->get_children ) {
	next if ref($_) eq 'SVGPDF::TextElement';
	my $id  = $_->atts->{id};
	unless ( defined($id) ) {
	    warn("SVG: Missing id for ", $_->name, " in defs (skipped)\n")
	      if $self->root->verbose && $_->name ne "style";
	    next;
	}
	$self->_dbg( "defs: \"$id\" (", $_->name, ")" );
	$self->root->defs->{ "#$id" } = $_;
    }

    $self->_dbg( "-" );
}


1;