File Coverage

lib/ChordPro/lib/SVGPDF/Style.pm

Criterion	Covered	Total	%
statement	11	25	44.0
branch	0	6	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	15	37	40.5

#! perl

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

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

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

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

    my $cdata = "";
    for my $t ( $self->get_children ) {
	croak("# ASSERT: non-text child in style")
	  unless ref($t) eq "SVGPDF::TextElement";
	$cdata .= $t->content;
    }
    if ( $cdata =~ /\S/ ) {
	$self->root->css->read_string($cdata);
    }

    # Ok?

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


1;