/usr/share/perl5/Template/Plugin/GD/Graph/bars.pm is in libtemplate-plugin-gd-perl 2.66-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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 | package Template::Plugin::GD::Graph::bars;
use strict;
use warnings;
use base qw( GD::Graph::bars Template::Plugin );
our $VERSION = sprintf("%d.%02d", q$Revision: 1.58 $ =~ /(\d+)\.(\d+)/);
sub new {
my $class = shift;
my $context = shift;
return $class->SUPER::new(@_);
}
sub set {
my $self = shift;
push(@_, %{pop(@_)}) if ( @_ & 1 && ref($_[@_-1]) eq "HASH" );
$self->SUPER::set(@_);
}
sub set_legend {
my $self = shift;
$self->SUPER::set_legend(ref $_[0] ? @{$_[0]} : @_);
}
1;
__END__
=head1 NAME
Template::Plugin::GD::Graph::bars - Create bar graphs with axes and legends
=head1 SYNOPSIS
[% USE g = GD.Graph.bars(x_size, y_size); %]
=head1 EXAMPLES
[% FILTER null;
data = [
["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
[ 1, 2, 5, 6, 3, 1.5, 1, 3, 4],
];
USE my_graph = GD.Graph.bars();
my_graph.set(
x_label => 'X Label',
y_label => 'Y label',
title => 'A Simple Bar Chart',
y_max_value => 8,
y_tick_number => 8,
y_label_skip => 2,
# shadows
bar_spacing => 8,
shadow_depth => 4,
shadowclr => 'dred',
transparent => 0,
);
my_graph.plot(data).png | stdout(1);
END;
-%]
[% FILTER null;
data = [
["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
[ 5, 12, 24, 33, 19, 8, 6, 15, 21],
[ 1, 2, 5, 6, 3, 1.5, 1, 3, 4],
];
USE my_graph = GD.Graph.bars();
my_graph.set(
x_label => 'X Label',
y_label => 'Y label',
title => 'Two data sets',
# shadows
bar_spacing => 8,
shadow_depth => 4,
shadowclr => 'dred',
long_ticks => 1,
y_max_value => 40,
y_tick_number => 8,
y_label_skip => 2,
bar_spacing => 3,
accent_treshold => 200,
transparent => 0,
);
my_graph.set_legend( 'Data set 1', 'Data set 2' );
my_graph.plot(data).png | stdout(1);
END;
-%]
=head1 DESCRIPTION
The GD.Graph.bars plugin provides an interface to the GD::Graph::bars
class defined by the GD::Graph module. It allows one or more (x,y) data
sets to be plotted with each point represented by a bar, in addition
to axes and legends.
See L<GD::Graph> for more details.
=head1 AUTHOR
Thomas Boutell wrote the GD graphics library.
Lincoln D. Stein wrote the Perl GD modules that interface to it.
Martien Verbruggen wrote the GD::Graph module.
Craig Barratt E<lt>craig@arraycomm.comE<gt> wrote the original GD
plugins for the Template Toolkit (2001).
Andy Wardley E<lt>abw@cpan.orgE<gt> extracted them from the TT core
into a separate distribution for TT version 2.15.
=head1 COPYRIGHT
Copyright (C) 2001 Craig Barratt E<lt>craig@arraycomm.comE<gt>,
2006 Andy Wardley E<lt>abw@cpan.orgE<gt>.
GD::Graph is copyright 1999 Martien Verbruggen.
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 SEE ALSO
L<Template::Plugin::GD>, L<Template::Plugin::GD::Graph::lines>, L<Template::Plugin::GD::Graph::lines3d>, L<Template::Plugin::GD::Graph::bars3d>, L<Template::Plugin::GD::Graph::points>, L<Template::Plugin::GD::Graph::linespoints>, L<Template::Plugin::GD::Graph::area>, L<Template::Plugin::GD::Graph::mixed>, L<Template::Plugin::GD::Graph::pie>, L<Template::Plugin::GD::Graph::pie3d>, L<GD>
=cut
# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4:
|