diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
| commit | 3282be229999dc36c197b264d63063a18d136331 (patch) | |
| tree | 98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/GD/Graph/mixed.pm | |
| parent | cfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff) | |
| download | xxv-3282be229999dc36c197b264d63063a18d136331.tar.gz xxv-3282be229999dc36c197b264d63063a18d136331.tar.bz2 | |
* Update installation list with required modules
* Remove unused/doubled provided external perl moduls
Diffstat (limited to 'lib/GD/Graph/mixed.pm')
| -rw-r--r-- | lib/GD/Graph/mixed.pm | 99 |
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"; |
