summaryrefslogtreecommitdiff
path: root/lib/GD/Graph/mixed.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/GD/Graph/mixed.pm')
-rw-r--r--lib/GD/Graph/mixed.pm99
1 files changed, 0 insertions, 99 deletions
diff --git a/lib/GD/Graph/mixed.pm b/lib/GD/Graph/mixed.pm
deleted file mode 100644
index daf192f..0000000
--- a/lib/GD/Graph/mixed.pm
+++ /dev/null
@@ -1,99 +0,0 @@
-#==========================================================================
-# Copyright (c) 1995-1998 Martien Verbruggen
-#--------------------------------------------------------------------------
-#
-# Name:
-# GD::Graph::mixed.pm
-#
-# $Id: mixed.pm,v 1.12 2003/02/10 22:12:41 mgjv Exp $
-#
-#==========================================================================
-
-package GD::Graph::mixed;
-
-($GD::Graph::mixed::VERSION) = '$Revision: 1.12 $' =~ /\s([\d.]+)/;
-
-use strict;
-
-use GD::Graph::axestype;
-use GD::Graph::lines;
-use GD::Graph::points;
-use GD::Graph::linespoints;
-use GD::Graph::bars;
-use GD::Graph::area;
-use Carp;
-
-# Even though multiple inheritance is not really a good idea, I will
-# do it here, because I need the functionality of the markers and the
-# line types We'll include axestype as the first one, to make sure
-# that's where we look first for methods.
-
-@GD::Graph::mixed::ISA = qw(
- GD::Graph::axestype
- GD::Graph::bars
- GD::Graph::lines
- GD::Graph::points
-);
-
-sub initialise
-{
- my $self = shift;
- $self->SUPER::initialise();
-}
-
-sub correct_width
-{
- my $self = shift;
-
- return $self->{correct_width} if defined $self->{correct_width};
-
- for my $type ($self->{default_type}, @{$self->{types}})
- {
- return 1 if $type eq 'bars';
- }
-}
-
-sub draw_data_set
-{
- my $self = shift;
- my $ds = $_[0];
-
- my $rc;
-
- my $type = $self->{types}->[$ds-1] || $self->{default_type};
-
- # Try to execute the draw_data_set function in the package
- # specified by type
- $rc = eval '$self->GD::Graph::'.$type.'::draw_data_set(@_)';
-
- # If we fail, we try it in the package specified by the
- # default_type, and warn the user
- if ($@)
- {
- carp "Set $ds, unknown type $type, assuming $self->{default_type}";
- #carp "Error message: $@";
-
- $rc = eval '$self->GD::Graph::'.
- $self->{default_type}.'::draw_data_set(@_)';
- }
-
- # If even that fails, we bail out
- croak "Set $ds: unknown default type $self->{default_type}" if $@;
-
- return $rc;
-}
-
-sub draw_legend_marker
-{
- my $self = shift;
- my $ds = $_[0];
-
- my $type = $self->{types}->[$ds-1] || $self->{default_type};
-
- eval '$self->GD::Graph::'.$type.'::draw_legend_marker(@_)';
-
- eval '$self->GD::Graph::'.
- $self->{default_type}.'::draw_legend_marker(@_)' if $@;
-}
-
-"Just another true value";