File Coverage

lib/ChordPro/Delegate/SVG.pm

Criterion	Covered	Total	%
statement	28	46	60.8
branch	1	4	25.0
condition	0	6	0.0
subroutine	8	10	80.0
pod	0	3	0.0
total	37	69	53.6

#! perl

use v5.26;
use strict;
use warnings;
use feature qw( signatures );
no warnings "experimental::signatures";
use utf8;

package ChordPro::Delegate::SVG;

use ChordPro::Utils;

sub DEBUG() { $::config->{debug}->{svg} }

sub svg2svg( $self, %args ) {
    my $elt = $args{elt};

    my @data = @{ $elt->{data} };
    my @pre;

    while ( $data[0] !~ /
	push( @pre, shift(@data) );
    }
    my $kv = parse_kvm( @pre ) if @pre;
    $kv->{split} //= 1;		# less overhead. really.
    $kv->{scale} ||= 1;

    return
	  { type     => "image",
	    subtype   => "svg",
	    line      => $elt->{line},
	    data      => \@data,
	    opts      => { %$kv, %{$elt->{opts}//{}} },
	  };
}

# Pre-scan.
sub options( $data ) {

    my @pre;

    while ( $data->[0] !~ /
	push( @pre, shift(@$data) );
    }
    my $kv = parse_kvm( @pre ) if @pre;
    $kv;
}

1;