NAME

GD::OrgChart - Perl extension for generating personnel organization charts

SYNOPSIS

# This bit of code will display a simple orgchart using the
# Imagemagick "display" command

use GD::OrgChart;
use constant FONT => "/some/path/to/truetype/fonts/times.ttf";
use IO::Pipe;

our $COMPANY;

# put data into $COMPANY such that it looks like:
$COMPANY =
  { text => "Gary\nHome Owner", subs => [
    { text => "Tex\nVice President, Back Yard Security", subs => [
      { text => "Ophelia\nGate Watcher" },
      { text => "Cinnamon\nDeck Sitter" },
    ]},
    { text => "Dudley\nVice President, Front Yard Security", subs => [
      { text => "Jax\nBay Window Watcher" },
      { text => "Maisie\nDoor Watcher" },
    ]},
  ]};

our $chart = GD::OrgChart->new({ size => 12, font => FONT });
$chart->DrawTree($COMPANY);

our $fh = IO::Pipe->new;
if (!$fh || !($fh->writer("display -"))) {
  # error
  ...
}
binmode $fh;	# just in case

our $image = $chart->Image;
$fh->print($image->png);
$fh->close();

DESCRIPTION

AUTHOR

Gary A. Algier, <gaa@magpage.com>

SEE ALSO

perl.