/usr/share/perl5/GD/Graph/hbars.pm is in libgd-graph-perl 1.44-6.
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 | #==========================================================================
# Copyright (c) 1995-1998 Martien Verbruggen
#--------------------------------------------------------------------------
#
# Name:
# GD::Graph::hbars.pm
#
# $Id: hbars.pm,v 1.3 2005/12/14 04:09:49 ben Exp $
#
#==========================================================================
package GD::Graph::hbars;
($GD::Graph::hbars::VERSION) = '$Revision: 1.3 $' =~ /\s([.\d]+)/;
use strict;
use GD::Graph::bars;
use GD::Graph::utils qw(:all);
use GD::Graph::colour qw(:colours);
@GD::Graph::hbars::ISA = qw(GD::Graph::bars);
sub initialise
{
my $self = shift;
$self->SUPER::initialise();
$self->set(rotate_chart => 1);
}
"Just another true value";
__END__
=head1 NAME
GD::Graph::hbars - make bar graphs with horizontal bars
=head1 SYNOPSIS
use GD::Graph::hbars;
=head1 DESCRIPTION
This is a wrapper module which is completely identical to creating a
GD::Graph::bars object with the C<rotate_chart> attribute set to a true
value.
=head1 SEE ALSO
L<GD::Graph>
=head1 AUTHOR
Martien Verbruggen E<lt>mgjv@tradingpost.com.auE<gt>
=head2 Copyright
(c) Martien Verbruggen
=head2 Acknowledgements
The original author of most of the code needed to implement this was
brian d foy, who sent this module to me after I complained I didn't have
the time to implement horizontal bar charts. I took the code that lived
in here, and distributed it over axestype.pm and bars.pm, to allow for a
better integration all around. His code, in turn, was mainly based on an
earlier version of bars.pm and axestype.pm.
=cut
|