Relations::Display 0.92

Relations::Display is a DBI/DBD::mysql Query Graphing Perl module.

SYNOPSIS

# DBI, Relations::Display Script that creates a
# matrix, table, and graph from a query.

use DBI;
use Relations;
use Relations::Query;
use Relations::Abstract;
use Relations::Display;

$dsn = "DBI:mysql:watcher";

$username = "root";
$password = ;

$dbh = DBI->connect($dsn,$username,$password,{PrintError => 1, RaiseError => 0});

$abstract = new Relations::Abstract($dbh);

$display = new Relations::Display(-abstract => $abstract,
-query => {-select => {total => "count(*)",
first => "Bird",
second => "Count",
third => "if(gender=Male,Boy,Girl)",
tao => "if(gender=Male,Yang,Yin)",
sex => "gender",
kind => "sp_name",
id => "species.sp_id",
fourth => "(species.sp_id+50)",
vert => "2",
horiz => "1.5"},
-from => [bird,species],
-where => [species.sp_id=bird.sp_id,
species.sp_id < 4],
-group_by => [sp_name,gender,first,second],
-order_by => [gender,sp_name]},
-x_axis => first,kind,id,fourth,
-legend => second,third,tao,sex,vert,horiz,
-y_axis => total,
-hide => fourth,third,vert,horiz,
-vertical => vert,
-horizontal => horiz);

$matrix = $display->get_matrix();

$table = $display->get_table();

$display->set(-chart => bars,
-width => 400,
-height => 400,
-settings => {y_min_value => 0,
y_max_value => 3,
y_tick_number => 3,
transparent => 0}
);

$gph = $display->get_graph();

$gd = $gph->gd();

open(IMG, >test.png) or die $!;
binmode IMG;
print IMG $gd->png;

$dbh->disconnect();