1 files changed, 99 insertions, 0 deletions
diff --git a/lib/GD/Graph/mixed.pm b/lib/GD/Graph/mixed.pm
new file mode 100644
index 0000000..daf192f
--- /dev/null
+++ b/lib/GD/Graph/mixed.pm
@@ -0,0 +1,99 @@
+#==========================================================================
+#              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";