File Coverage

samples/sample11.pl
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 1     1   2872 use strict;
  1         2  
  1         64  
2 1     1   844 use GD::Graph::bars;
  0            
  0            
3             use GD::Graph::hbars;
4             use GD::Graph::Data;
5             require 'save.pl';
6              
7             my $data = GD::Graph::Data->new([
8             ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
9             [ 1, 2, 5, 6, 3, 1.5, 1, 3, 4],
10             ]) or die GD::Graph::Data->error;
11              
12             my @names = qw/sample11 sample11-h/;
13              
14             for my $my_graph (GD::Graph::bars->new, GD::Graph::hbars->new)
15             {
16             my $name = shift @names;
17              
18             print STDERR "Processing $name\n";
19              
20             $my_graph->set(
21             x_label => 'X Label',
22             y_label => 'Y label',
23             title => 'A Simple Bar Chart',
24             #y_max_value => 8,
25             #y_tick_number => 8,
26             #y_label_skip => 2,
27              
28             #x_labels_vertical => 1,
29            
30             # shadows
31             bar_spacing => 8,
32             shadow_depth => 4,
33             shadowclr => 'dred',
34              
35             transparent => 0,
36             )
37             or warn $my_graph->error;
38              
39             $my_graph->plot($data) or die $my_graph->error;
40             save_chart($my_graph, $name);
41             }
42              
43              
44             1;