/usr/local/CPAN/Chart-PNGgraph/Chart/PNGgraph/bars.pm

• package Chart::PNGgraph::bars
  • plot
• EOF

#==========================================================================
#			   Copyright (c) 1995-2000 Martien Verbruggen
#--------------------------------------------------------------------------
#
#	Name:
#		Chart::PNGgraph::bars.pm
#
# $Id: bars.pm,v 1.1.1.1.2.2.2.1 2000/04/05 02:45:37 sbonds Exp $
#
#==========================================================================
 
package Chart::PNGgraph::bars;
use strict;
use Chart::PNGgraph;
use GD::Graph::bars;
@Chart::PNGgraph::bars::ISA = qw(GD::Graph::bars Chart::PNGgraph);

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

1;