/usr/share/perl5/SVG/Graph/Glyph/scatter.pm is in libsvg-graph-perl 0.02-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 | package SVG::Graph::Glyph::scatter;
use base SVG::Graph::Glyph;
use strict;
=head1 NAME
SVG::Graph::Glyph::scatter - SVG::Graph::Glyph::scatter object
=head1 METHODS
=head2 draw
Title : draw
Usage :
Function:
Example :
Returns :
Args :
=cut
sub draw{
my ($self,@args) = @_;
my $id = 'n'.sprintf("%07d",int(rand(9999999)));
my $group = $self->svg->group(id=>"scatter$id");
foreach my $datum($self->group->data){
my $cx = (($datum->x - $self->group->xmin) * $self->xscale) + $self->xoffset;
my $cy = (($self->xsize - ($datum->y - $self->group->ymin) * $self->yscale)) + $self->yoffset;
$group->circle(cx=>$cx,cy=>$cy,r=>3,style=>{$self->_style});
}
}
1;
|