/usr/share/perl5/GD/Graph/linespoints.pm is in libgd-graph-perl 1.48-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | #==========================================================================
# 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";
|