view release on metacpan or  search on metacpan

t/unpacked/GraphViz/lib/GraphViz/XML.pm  view on Meta::CPAN

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) {