Skip to content

Commit

Permalink
- Merged PR #9, correcting typo in the pod. Thanks @vti.
Browse files Browse the repository at this point in the history
- Tidied up Changes file.
- Tidied up Makefile.PL script.
- Tidied up README file.
  • Loading branch information
manwar committed Apr 16, 2017
1 parent 9515570 commit 4014889
Show file tree
Hide file tree
Showing 8 changed files with 337 additions and 349 deletions.
525 changes: 252 additions & 273 deletions Changes

Large diffs are not rendered by default.

35 changes: 21 additions & 14 deletions Makefile.PL
@@ -1,28 +1,35 @@
#!/usr/bin/perl

use 5.006;
use strict;
use warnings FATAL => 'all';
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.

WriteMakefile(
NAME => 'SVG',
VERSION_FROM => 'lib/SVG.pm', # finds $VERSION
PREREQ_PM => {
NAME => 'SVG',
VERSION_FROM => 'lib/SVG.pm',
PREREQ_PM => {
'parent' => 0,
'Scalar::Util' => 0,
},
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'lib/SVG.pm',
LICENSE => 'perl',
AUTHOR => 'Ronan Oger <ronan@cpan.com>') : ()),
META_MERGE => {
resources => {
repository => 'https://github.com/szabgab/SVG',
},
},
($] >= 5.005 ?
(ABSTRACT_FROM => 'lib/SVG.pm',
LICENSE => 'perl',
AUTHOR => 'Ronan Oger <ronan@cpan.com>') : ()),
META_MERGE => {
resources => {
type => 'git',
url => 'https://github.com/manwar/SVG.git',
web => 'https://github.com/manwar/SVG',
},
x_contributors => [
'Peter Wainwright',
'Ian Hickson',
'Adam Schneider',
'Steve Lihn',
'Allen Day',
'Gabor Szabo',
'Mohammad S Anwar',
],
},
);
90 changes: 47 additions & 43 deletions README
@@ -1,27 +1,26 @@
README for SVG.pm

SVG.pm is a perl extension to generate standalone or inline SVG
(short for "Scalable Vector Graphics") images using the W3C's
SVG XML recommendation.
SVG.pm is a perl extension to generate standalone or inline SVG (short for
"Scalable Vector Graphics") images using the W3C's SVG XML recommendation.

Refer to the POD documentation for full documentation and an example
script, or to the following mirror:
Refer to the POD documentation for full documentation and an example script or to
the following mirror:

https://metacpan.org/module/SVG

The complete POD documentation for SVG resides in the SVG module itself -
type "perldoc SVG" on the command line.
The complete POD documentation for SVG resides in the SVG module itself - type
"perldoc SVG" on the command line.

(c) 2001-2008 Ronan Oger, RO IT Systems, GmbH
homepage: http://www.roitsystems.com
(c) 2001-2008 Ronan Oger, RO IT Systems,
GmbH homepage: http://www.roitsystems.com

CONTACT POINT
-------------

szabgab@cpan.org

This software is provided as is and without warranty.
It is freely distributed under the general perl license.
This software is provided as is and without warranty. It is freely distributed
under the general perl license.

LICENSE
-------
Expand All @@ -31,9 +30,9 @@ This software is provided under the terms of the Perl license
OVERVIEW
--------

SVG.pm makes it possible to generate fully-functional SVG images in perl.
100% of the SVG tags are supported, and any new arbitrary element tag can be
added by users by declaring it.
SVG.pm makes it possible to generate fully-functional SVG images in perl. 100% of
the SVG tags are supported, and any new arbitrary element tag can be added by
users by declaring it.

DOCUMENTATION
-------------
Expand All @@ -59,43 +58,48 @@ INSTALLATION INSTRUCTIONS

***THERE ARE FOUR WAYS TO INSTALL THE SVG MODULE IN PERL***

1/ Systems with CPAN support (all Windows/Unix/Linux/BSD/Mac):
-----------------------------------------------------
1) Systems with CPAN support (all Windows/Unix/Linux/BSD/Mac):
-----------------------------------------------------------

Install the new distribution via the Perl CPAN module:
In a shell:
/home/somewhere% cpan install SVG"
Install the new distribution via the Perl CPAN module:
In a shell:

You can alternatively use CPANPLUS or cpanm.
/home/somewhere% cpan install SVG

2/ (Windows) install Perl from ActiveState:
-----------------------------------------------------
You can alternatively use CPANPLUS or cpanm.

Make sure you already have perl or get it here: http://www.activestate.com
On the command line:
C:\> ppm install SVG
2) (Windows) install Perl from ActiveState:
----------------------------------------

3/ Use RPMs:
------------
Make sure you already have perl or get it here: http://www.activestate.com
On the command line:

Download the source RPM of your choice.
In a shell:
/hom/somewhere/% rpm -ihv SVG-source-rpm-name
You may be prompted for the root password
C:\> ppm install SVG

4/ The hard way (requires make, dmake or nmake, tar, gunzip, and gcc):
----------------------------------------------------------------------

This method was tested in DOS, Windows, AS400, Linux, Unix, BSD, Mac.
Hard-headed users can directly get the distribution from a CPAN mirror.
First download the source.
Then, in a shell:
/home/somewhere% gunzip SVG-2.27.tar.gz
/home/somewhere% tar-xvf SVG-2.27.tar
cd SVG-2.1
make
make test
make install
3) Use RPMs:
---------

Download the source RPM of your choice.
In a shell:

/hom/somewhere/% rpm -ihv SVG-source-rpm-name
You may be prompted for the root password

4) The hard way (requires make, dmake or nmake, tar, gunzip, and gcc):
-------------------------------------------------------------------

This method was tested in DOS, Windows, AS400, Linux, Unix, BSD, Mac.
Hard-headed users can directly get the distribution from a CPAN mirror.
First download the source.
Then, in a shell:

/home/somewhere% gunzip SVG-2.27.tar.gz
/home/somewhere% tar-xvf SVG-2.27.tar
cd SVG-2.1
make
make test
make install

KNOWN BUGS & ISSUES
-------------------
Expand Down
7 changes: 3 additions & 4 deletions lib/SVG.pm
Expand Up @@ -7,15 +7,15 @@ use SVG::XML;
use parent qw(SVG::Element SVG::Extension);
use Scalar::Util qw/weaken/;

our $VERSION = '2.64';
our $VERSION = '2.65';

=pod
=encoding UTF-8
=head1 NAME
SVG - Perl extension for generating Scalable Vector Graphics (SVG) documents
SVG - Perl extension for generating Scalable Vector Graphics (SVG) documents.
=head1 SYNOPSIS
Expand All @@ -29,7 +29,7 @@ SVG - Perl extension for generating Scalable Vector Graphics (SVG) documents
# use explicit element constructor to generate a group element
my $y = $svg->group(
id => 'group_y',
id => 'group_y',
style => {
stroke => 'red',
fill => 'green'
Expand Down Expand Up @@ -1591,4 +1591,3 @@ L<ROIT Systems: Commercial SVG perl solutions|http://www.roitsystems.com/>,
L<SVG at the W3C|http://www.w3c.org/Graphics/SVG/>
=cut

21 changes: 10 additions & 11 deletions lib/SVG/DOM.pm
Expand Up @@ -4,7 +4,7 @@ use warnings;

use Scalar::Util qw/weaken/;

our $VERSION = '2.64';
our $VERSION = '2.65';

# this module extends SVG::Element
package SVG::Element;
Expand Down Expand Up @@ -605,7 +605,7 @@ sub removeChildAtIndex {

#-------------------------------------------------------------------------------

=pod
=pod
=head1 NAME
Expand All @@ -615,7 +615,7 @@ SVG::DOM - A library of DOM (Document Object Model) methods for SVG objects.
SVG::DOM provides a selection of methods for accessing and manipulating SVG
elements through DOM-like methods such as getElements, getChildren, getNextSibling
and so on.
and so on.
=head1 SYNOPSIS
Expand Down Expand Up @@ -667,18 +667,18 @@ Return a list of all children defined on the current node, or undef if there are
In scalar context returns an array reference.
Alias: getChildElements(), getChildNodes()
=head2 @children = $obj->hasChildren()
Return 1 if the current node has children, or 0 if there are no children.
Alias: hasChildElements, hasChildNodes()
=head2 $ref = $obj->getFirstChild()
=head2 $ref = $obj->getFirstChild()
Return the first child element of the current node, or undef if there are no children.
=head2 $ref = $obj->getLastChild()
=head2 $ref = $obj->getLastChild()
Return the last child element of the current node, or undef if there are no children.
Expand Down Expand Up @@ -721,7 +721,7 @@ Return a string containing the name (i.e. the type, not the ID) of an element.
Alias: getType(), getTagName(), getNodeName()
=head2 $ref = $svg->getElementByID($id)
=head2 $ref = $svg->getElementByID($id)
Alias: getElementbyID()
Expand Down Expand Up @@ -775,7 +775,7 @@ Returns 1 if $element was successfully inserted before $obj
=head2 $boolean = $obj->insertSiblingAfter( $element );
Returns 1 if $element was successfully inserted after $obj
Returns 1 if $element was successfully inserted after $obj
=head2 $element = $obj->replaceChild( $element, $child );
Expand All @@ -785,7 +785,7 @@ Returns $child if $element successfully replaced $child in $obj
Returns $child if it was removed successfully from $obj
=head2 $element = $obj->cloneNode( $deep );
=head2 $element = $obj->cloneNode( $deep );
Returns a new $element clone of $obj, without parents or children. If deep is set to 1, all children are included recursively.
Expand All @@ -804,4 +804,3 @@ L<http://www.w3c.org/Graphics/SVG/> SVG at the W3C
=cut

1;

4 changes: 2 additions & 2 deletions lib/SVG/Element.pm
Expand Up @@ -3,7 +3,7 @@ package SVG::Element;
use strict;
use warnings;

our $VERSION = '2.64';
our $VERSION = '2.65';

=pod
Expand Down Expand Up @@ -485,7 +485,7 @@ sub animate {

#list of legal entities for each of the 5 methods of animations
my %legal = (
animate => q{ begin dur end min max restart repeatCount
animate => q{ begin dur end min max restart repeatCount
repeatDur fill attributeType attributeName additive
accumulate calcMode values keyTimes keySplines
from to by },
Expand Down
2 changes: 1 addition & 1 deletion lib/SVG/Extension.pm
Expand Up @@ -2,7 +2,7 @@ package SVG::Extension;
use strict;
use warnings;

our $VERSION = '2.64';
our $VERSION = '2.65';

=head1 NAME
Expand Down
2 changes: 1 addition & 1 deletion lib/SVG/XML.pm
Expand Up @@ -2,7 +2,7 @@ package SVG::XML;
use strict;
use warnings;

our $VERSION = '2.64';
our $VERSION = '2.65';

=pod
Expand Down

0 comments on commit 4014889

Please sign in to comment.