File Coverage

blib/lib/GD/Graph/hbars.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             #==========================================================================
2             # Copyright (c) 1995-1998 Martien Verbruggen
3             #--------------------------------------------------------------------------
4             #
5             # Name:
6             # GD::Graph::hbars.pm
7             #
8             # $Id: hbars.pm,v 1.3 2005/12/14 04:09:49 ben Exp $
9             #
10             #==========================================================================
11            
12             package GD::Graph::hbars;
13              
14             ($GD::Graph::hbars::VERSION) = '$Revision: 1.3 $' =~ /\s([.\d]+)/;
15              
16 1     1   5 use strict;
  1         2  
  1         35  
17              
18 1     1   50 use GD::Graph::bars;
  0            
  0            
19             use GD::Graph::utils qw(:all);
20             use GD::Graph::colour qw(:colours);
21              
22             @GD::Graph::hbars::ISA = qw(GD::Graph::bars);
23              
24             sub initialise
25             {
26             my $self = shift;
27             $self->SUPER::initialise();
28             $self->set(rotate_chart => 1);
29             }
30              
31             "Just another true value";
32              
33             __END__