/usr/share/perl5/Template/Plugin/GD/Graph/bars3d.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 | package Template::Plugin::GD::Graph::bars3d;
use strict;
use warnings;
use base qw( GD::Graph::bars3d 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::bars3d - Create 3D bar graphs with axes and legends
=head1 SYNOPSIS
[% USE g = GD.Graph.bars3d(x_size, y_size); %]
=head1 EXAMPLES
[% FILTER null;
data = [
["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug",
"Sep", "Oct", "Nov", "Dec", ],
[-5, -4, -3, -3, -1, 0, 2, 1, 3, 4, 6, 7],
[4, 3, 5, 6, 3,1.5, -1, -3, -4, -6, -7, -8],
[1, 2, 2, 3, 4, 3, 1, -1, 0, 2, 3, 2],
];
USE my_graph = GD.Graph.bars3d();
my_graph.set(
x_label => 'Month',
y_label => 'Measure of success',
title => 'A 3d Bar Chart',
y_max_value => 8,
y_min_value => -8,
y_tick_number => 16,
y_label_skip => 2,
box_axis => 0,
line_width => 3,
zero_axis_only => 1,
x_label_position => 1,
y_label_position => 1,
x_label_skip => 3,
x_tick_offset => 2,
transparent => 0,
);
my_graph.set_legend("Us", "Them", "Others");
my_graph.plot(data).png | stdout(1);
END;
-%]
=head1 DESCRIPTION
The GD.Graph.bars3d plugin provides an interface to the GD::Graph::bars3d
class defined by the GD::Graph3d module. It allows one or more (x,y) data
sets to be plotted as y versus x bars with a 3-dimensional appearance,
together with axes and legends.
See L<GD::Graph3d> 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::Graph3d is copyright (C) 1999,2000 Wadsack-Allen. All Rights Reserved.
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::bars>, 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:
|