This is an automated email from the git hooks/post-receive script.
dom pushed a commit to branch master
in repository libgraphviz-perl.
commit 50f6c83a6d229ce272b305d2c7e45479f75e975e
Author: Dominic Hargreaves <d...@earth.li>
Date: Sun Dec 30 13:51:17 2007 +0000
[svn-upgrade] Integrating new upstream version, libgraphviz-perl (2.03)
---
CHANGES | 3 +++
META.yml | 21 +++++++++++----------
lib/GraphViz.pm | 20 ++++++++++++++++----
3 files changed, 30 insertions(+), 14 deletions(-)
diff --git a/CHANGES b/CHANGES
index 4c3f3f3..ec0340b 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,5 +1,8 @@
Revision history for Perl module GraphViz.
+2.03 Sun Nov 18 14:40:20 GMT 2007
+ - make the graph name configurable (patch by Ruslan Zakirov)
+
2.02 Fri Jan 7 18:51:06 GMT 2005
- remove dependencies on Graph and Math::Bezier
- make GraphViz HTML-Like labels work (spotted by Patrice Dehais)
diff --git a/META.yml b/META.yml
index 62db9ea..5515fea 100644
--- a/META.yml
+++ b/META.yml
@@ -1,12 +1,13 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: GraphViz
-version: 2.02
-version_from: lib/GraphViz.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: GraphViz
+version: 2.03
+abstract: ~
+license: ~
+generated_by: ExtUtils::MakeMaker version 6.32
+distribution_type: module
+requires:
IPC::Run: 0.6
Test::More: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
diff --git a/lib/GraphViz.pm b/lib/GraphViz.pm
index 6f59d97..6f1c8be 100644
--- a/lib/GraphViz.pm
+++ b/lib/GraphViz.pm
@@ -8,7 +8,7 @@ use Config;
use IPC::Run qw(run binary);
# This is incremented every time there is a change to the API
-$VERSION = '2.02';
+$VERSION = '2.03';
=head1 NAME
@@ -313,6 +313,12 @@ The 'bgcolor' option sets the background colour. A colour
value may be
and 1, or an X11 color name such as 'white', 'black', 'red', 'green',
'blue', 'yellow', 'magenta', 'cyan', or 'burlywood'.
+=item name
+
+The 'name' option sets name of the graph. This option is useful in few
+situations, like client side image map generation, see cmapx.
+By default 'test' is used.
+
=item node,edge,graph
The 'node', 'edge' and 'graph' attributes allow you to specify global
@@ -357,6 +363,12 @@ sub new {
$self->{LAYOUT} = "dot"; # default layout
}
+ if (exists $config->{name}) {
+ $self->{NAME} = $config->{name};
+ } else {
+ $self->{NAME} = 'test';
+ }
+
if (exists $config->{bgcolor}) {
$self->{BGCOLOR} = $config->{bgcolor};
}
@@ -875,14 +887,14 @@ Returns a string which contains a layed-out Windows
BMP-format file.
=item as_cmap (deprecated)
Returns a string which contains a layed-out HTML client-side image map
-format file. Use as_cmpax instead.
+format file. Use as_cmapx instead.
print $g->as_cmap;
=item as_cmapx
Returns a string which contains a layed-out HTML HTML/X client-side image map
-format file.
+format file. Name and id attributes of map element are set to name of the
graph.
print $g->as_cmapx;
@@ -987,7 +999,7 @@ sub _as_debug {
my $graph_type = $self->{DIRECTED} ? 'digraph' : 'graph';
- $dot .= "$graph_type test {\n";
+ $dot .= $graph_type ." ". $self->{NAME} ." {\n";
# the direction of the graph
$dot .= "\trankdir=LR;\n" if $self->{RANK_DIR};
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libgraphviz-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
