/usr/share/perl5/GraphViz/XML.pm is in libgraphviz-perl 2.10-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | package GraphViz::XML;
use strict;
use warnings;
use vars qw($VERSION);
use Carp;
use lib '..';
use GraphViz;
use XML::Twig;
our $VERSION = '2.10';
=head1 NAME
GraphViz::XML - Visualise XML as a tree
=head1 SYNOPSIS
use GraphViz::XML;
my $graph = GraphViz::XML->new($xml);
print $g->as_png;
=head1 DESCRIPTION
This module makes it easy to visualise XML as a tree. XML is hard for
humans to grasp, especially if the XML is computer-generated. This
modules aims to visualise the XML as a graph in order to make the
structure of the XML clear and to aid in understanding the XML.
XML elements are represented as diamond nodes, with links to elements
within them. Character data is represented in round nodes.
Note that the XML::Twig module should be installed.
=head1 METHODS
=head2 new
This is the constructor. It takes one mandatory argument, which is the
XML to be visualised. A GraphViz object is returned.
my $graph = GraphViz::XML->new($xml);
=cut
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $xml = shift;
my $t = XML::Twig->new();
$t->parse($xml);
my $graph = GraphViz->new();
_init( $graph, $t->root );
return $graph;
}
=head2 as_*
The XML can be visualised in a number of different graphical
formats. Methods include as_ps, as_hpgl, as_pcl, as_mif, as_pic,
as_gd, as_gd2, as_gif, as_jpeg, as_png, as_wbmp, as_ismap, as_imap,
as_vrml, as_vtx, as_mp, as_fig, as_svg. See the GraphViz documentation
for more information. The two most common methods are:
# Print out a PNG-format file
print $g->as_png;
# Print out a PostScript-format file
print $g->as_ps;
=cut
sub _init {
my ( $g, $root ) = @_;
#warn "$root $root->gi\n";
my $label = $root->gi;
my $colour = 'blue';
my $shape = 'ellipse';
if ( $root->is_pcdata ) {
$label = $root->text;
$label =~ s|^\s+||;
$label =~ s|\s+$||;
$colour = 'black';
} else {
$shape = "diamond";
}
$g->add_node( $root, label => $label, color => $colour, shape => $shape );
foreach my $child ( $root->children ) {
$g->add_edge( $root => $child );
_init( $g, $child );
}
}
=head1 BUGS
GraphViz tends to reorder the nodes. I hope to find a work around soon
(possibly with ports).
=head1 AUTHOR
Leon Brocard E<lt>F<acme@astray.com>E<gt>
=head1 COPYRIGHT
Copyright (C) 2001, Leon Brocard
This module is free software; you can redistribute it or modify it
under the same terms as Perl itself.
=cut
1;
|