/usr/local/CPAN/GIFgraph/GIFgraph/pie.pm

• package GIFgraph::pie
  • plot
• EOF

#==========================================================================
#			   Copyright (c) 1995-2000 Martien Verbruggen
#--------------------------------------------------------------------------
#
#	Name:
#		GIFgraph::pie.pm
#
# $Id: pie.pm,v 1.3 1999/12/26 10:59:19 mgjv Exp $
#
#==========================================================================

package GIFgraph::pie;
use strict;
use GIFgraph;
use GD::Graph::pie;
@GIFgraph::pie::ISA = qw(GD::Graph::pie GIFgraph);

sub plot 
{ 
	my $self = shift;
	my $gd   = $self->SUPER::plot(@_);
	$self->_old_plot($gd);
}

1;