[libgraphviz-perl] 04/31: [svn-upgrade] Integrating new upstream version, libgraphviz-perl (2.03)

[dom at earth.li]

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 <dom at 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