/ 
Svg-Simple-20231025
⭐ Starred 0
/ README.md

Test

Name

Svg::Simple - SVG overlay to facilitate writing SVG documents using Perl

Synopsis

Svg::Simple makes it easy to write Scalar Vector Graphics using Perl syntax as in:

my $s = Svg::Simple::new();

$s->text(x=>10, y=>10, z_index=>1,
  cdata             =>"Hello World",
  text_anchor       =>"middle",
  alignment_baseline=>"middle",
  font_size         => 4,
  font_family       =>"Arial",
  fill              =>"black");

$s->circle(cx=>10, cy=>10, r=>8, stroke=>"blue", fill=>"transparent", opacity=>0.5);
say STDERR $s->print;

A - in an Scalar Vector Graphics keyword can be replaced with _ to reduce line noise.

The print method automatically creates an svg to wrap around all the Scalar Vector Graphics statements specified. The image so created will fill all of the available space in the web browser if the image is shown by itself, else it will fill all of the available space in the parent tag containing the Scalar Vector Graphics statements if the Scalar Vector Graphics is inlined in HTML. This package automatically tracks the dimensions of the objects specified in the Scalar Vector Graphics statements and creates a viewport wide enough and high enough to display them fully in whatever space the web browser allocates to the image. If you wish to set these dimensions yourself, call the print method as follows:

say STDERR $s->print(width=>2000, height=>1000);

If you wish to inline the generated HTML you should remove the first two lines of the generated code using a regular expression to remove the superfluous Xml headers.

Description

SVG overlay to facilitate writing SVG documents using Perl

Version 20231021.

The following sections describe the methods in each functional area of this module. For an alphabetic listing of all methods by name see Index.

Constructors

Construct and print a new SVG object.

new()

Create a new SVG object.

Example:

my $s = Svg::Simple::new();  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲


$s->text(x=>10, y=>10, z_index=>1,
  cdata             =>"Hello World",
  text_anchor       =>"middle",
  alignment_baseline=>"middle",
  font_size         => 4,
  font_family       =>"Arial",
  fill              =>"black");

$s->circle(cx=>10, cy=>10, r=>8, stroke=>"blue", fill=>"transparent", opacity=>0.5);
owf fpe(qw(svg [test](https://en.wikipedia.org/wiki/Software_testing) svg)), $s->print;
ok $s->print =~ m(circle)

print($svg, %options)

Print resulting Scalar Vector Graphics string Parameter Description 1 $svg Svg 2 %options Svg options

Example:

my $s = Svg::Simple::new();

$s->text(x=>10, y=>10, z_index=>1,
  cdata             =>"Hello World",
  text_anchor       =>"middle",
  alignment_baseline=>"middle",
  font_size         => 4,
  font_family       =>"Arial",
  fill              =>"black");

$s->circle(cx=>10, cy=>10, r=>8, stroke=>"blue", fill=>"transparent", opacity=>0.5);

owf fpe(qw(svg [test](https://en.wikipedia.org/wiki/Software_testing) svg)), $s->print;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲


ok $s->print =~ m(circle)  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

Private Methods

AUTOLOAD($svg, %options)

SVG methods

   Parameter  Description
1  $svg       Svg object
2  %options   Options

Index

1 AUTOLOAD - SVG methods

2 new - Create a new SVG object.

3 print - Print resulting Scalar Vector Graphics string

Installation

This module is written in 100% Pure Perl and, thus, it is easy to read, comprehend, use, modify and install via cpan:

sudo [CPAN](https://metacpan.org/author/PRBRENAN) [install](https://en.wikipedia.org/wiki/Installation_(computer_programs)) Svg::Simple

Author

philiprbrenan@gmail.com

http://www.appaapps.com

Copyright

Copyright (c) 2016-2023 Philip R Brenan.

This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.

For documentation see: CPAN