view release on metacpan or  search on metacpan

examples/frontpage.pl  view on Meta::CPAN

# put an SVG image in lower-right corner of col2
my $svg = PDF::Cairo->loadsvg("data/treasure-map.svg");
$pdf->place($svg, $col2->x + $col2->width, $col2->y,
	scale => 0.1, align => 'right');

$pdf->write;
exit;

sub slurp {
	do {local( @ARGV, $/ ) = $_[0]; <>}
}

# strip EOL but preserve paragraph separator, to reflow text
# correctly.
#
# Note: if you set a font size in a <span>, and have a newline at
# the end of the markup, the final line will be set with the line
# spacing of the Cairo font size that was current when you called
# show(). Best not to do that.
#