FM / Graph

/usr/share/perl5/vendor_perl/GD/Graph

Name	Size	Mode	Actions
area.pm	2980	0644	edit dl rm
axestype.pm	61723	0644	edit dl rm
bars.pm	12594	0644	edit dl rm
colour.pm	7756	0644	edit dl rm
Data.pm	17196	0644	edit dl rm
Error.pm	9177	0644	edit dl rm
FAQ.pod	5909	0644	edit dl rm
hbars.pm	1631	0644	edit dl rm
lines.pm	4446	0644	edit dl rm
linespoints.pm	1214	0644	edit dl rm
mixed.pm	2983	0644	edit dl rm
pie.pm	12884	0644	edit dl rm
points.pm	5106	0644	edit dl rm
utils.pm	1246	0644	edit dl rm

Edit: /usr/share/perl5/vendor_perl/GD/Graph/linespoints.pm (1214B)

package GD::Graph::linespoints;
 
($GD::Graph::linespoints::VERSION) = '$Revision: 1.8 $' =~ /\s([\d.]+)/;

use strict;
 
use GD::Graph::axestype;
use GD::Graph::lines;
use GD::Graph::points;
 
# Even though multiple inheritance is not really a good idea,
# since lines and points have the same parent class, I will do it here,
# because I need the functionality of the markers and the line types

@GD::Graph::linespoints::ISA = qw(GD::Graph::lines GD::Graph::points);

# PRIVATE

sub draw_data_set
{
    my $self = shift;

$self->GD::Graph::points::draw_data_set(@_) or return;
    $self->GD::Graph::lines::draw_data_set(@_);
}

sub draw_legend_marker
{
    my $self = shift;

$self->GD::Graph::points::draw_legend_marker(@_);
    $self->GD::Graph::lines::draw_legend_marker(@_);
}

"Just another true value";

#========================================================================== # Copyright (c) 1995-1998 Martien Verbruggen #-------------------------------------------------------------------------- # # Name: # GD::Graph::linespoints.pm # # $Id: linespoints.pm,v 1.8 2005/12/14 04:13:08 ben Exp $ # #========================================================================== package GD::Graph::linespoints; ($GD::Graph::linespoints::VERSION) = '$Revision: 1.8 $' =~ /\s([\d.]+)/; use strict; use GD::Graph::axestype; use GD::Graph::lines; use GD::Graph::points; # Even though multiple inheritance is not really a good idea, # since lines and points have the same parent class, I will do it here, # because I need the functionality of the markers and the line types @GD::Graph::linespoints::ISA = qw(GD::Graph::lines GD::Graph::points); # PRIVATE sub draw_data_set { my $self = shift; $self->GD::Graph::points::draw_data_set(@_) or return; $self->GD::Graph::lines::draw_data_set(@_); } sub draw_legend_marker { my $self = shift; $self->GD::Graph::points::draw_legend_marker(@_); $self->GD::Graph::lines::draw_legend_marker(@_); } "Just another true value";