From bcbf441e09fb502cf64924ff2530fa144bdf52c5 Mon Sep 17 00:00:00 2001 From: Andreas Brachold Date: Mon, 13 Aug 2007 18:41:27 +0000 Subject: * Move files to trunk --- lib/GD/Graph/linespoints.pm | 46 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 lib/GD/Graph/linespoints.pm (limited to 'lib/GD/Graph/linespoints.pm') diff --git a/lib/GD/Graph/linespoints.pm b/lib/GD/Graph/linespoints.pm new file mode 100644 index 0000000..d913e2c --- /dev/null +++ b/lib/GD/Graph/linespoints.pm @@ -0,0 +1,46 @@ +#========================================================================== +# Copyright (c) 1995-1998 Martien Verbruggen +#-------------------------------------------------------------------------- +# +# Name: +# GD::Graph::linespoints.pm +# +# $Id: linespoints.pm,v 1.8 2003/02/10 22:12:41 mgjv Exp $ +# +#========================================================================== + +package GD::Graph::linespoints; + +($GD::Graph::linespoints::VERSION) = '$Revision: 1.8 $' =~ /\s([\d.]+)/; + +use strict; + +use GD::Graph::axestype; +use GD::Graph::lines; +use GD::Graph::points; + +# Even though multiple inheritance is not really a good idea, +# since lines and points have the same parent class, I will do it here, +# because I need the functionality of the markers and the line types + +@GD::Graph::linespoints::ISA = qw(GD::Graph::lines GD::Graph::points); + +# PRIVATE + +sub draw_data_set +{ + my $self = shift; + + $self->GD::Graph::points::draw_data_set(@_) or return; + $self->GD::Graph::lines::draw_data_set(@_); +} + +sub draw_legend_marker +{ + my $self = shift; + + $self->GD::Graph::points::draw_legend_marker(@_); + $self->GD::Graph::lines::draw_legend_marker(@_); +} + +"Just another true value"; -- cgit v1.2.3