Yet Another CPAN Grep

SVG-Estimate ( C/CO/COLINK/SVG-Estimate-1.02.tar.gz, COLINK, 2024; MetaCPAN )

SVG-Estimate/56_subpaths.t ( view source; MetaCPAN )

:Estimate::Path';
use Image::SVG::Transform;
use Image::SVG::Path qw/extract_path_info/;
use JSON qw/to_json/;

my $suspect_path =<<EOSVG;
M 0,5 L 0,6 m 1,0 1,0 0,1 -1,0 z m 2,0 1,0 0,1 -1,0 z
EOSVG

-3 z
#m 31,-31 3,3 7,-7 -3,-3 z
#EOSVG

{
    my @path_info = extract_path_info($suspect_path, {absolute => 1, no_shortcuts => 1});
    diag to_json(\@path_info, { pretty => 1, });
}

done_testing();