view release on metacpan or  search on metacpan

Chart.pm  view on Meta::CPAN

#
#	DBIx::Chart - subclass of DBI to transparently provide
#		charting capability
#
#	History:
#
#	2005-01-26		D. Arnold
#		- added fetch() alias
#		- added state() functions
#		- improved err/errstr/state retrieval
#
#	2002-09-10		D. Arnold
#		Coded.
#

require 5.6.0;
use DBI 1.27;
use DBD::Chart 0.82;

BEGIN {
$DBIx::Chart::VERSION = '0.05';
}
#
#	immediately grab a DBD::Chart handle for our use
#
our $chartdbh = DBI->connect('dbi:Chart:');

package DBIx::Chart;
@ISA = qw(DBI);

# inherits connect etc

package DBIx::Chart::db;
@ISA = qw(DBI::db);

use strict 'vars';
use Carp;

#
#	we should really let DBD::Chart
#	provide something to tell us which
#	types of charts it supports
my %chart_types = qw(
BOXCHART 1
LINEGRAPH 1
AREAGRAPH 1
POINTGRAPH 1
BARCHART 1
PIECHART 1
HISTOGRAM 1
GANTT 1
QUADTREE 1
CANDLESTICK 1
IMAGE 1);

#
#	for now we're not supporting these
#
#  $rc = $sth->bind_param_array($p_num, $bind_values, \%attr);
#  $rv = $sth->execute_array(\%attr);
#  $rv = $sth->execute_array(\%attr, @bind_values);
#