File Coverage

samples/sample63.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   1504 use strict;
  1         1  
  1         28  
2 1     1   25 use GD::Graph::mixed;
  0            
  0            
3             require 'save.pl';
4              
5             # Also see sample17
6              
7             print STDERR "Processing sample63\n";
8              
9             my @data = (
10             ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
11             [ 11, 12, 15, 16, 3, 1.5, 1, 3, 4],
12             [ 5, 12, 24, 15, 19, 8, 6, 15, 21],
13             [ 12, 3, 1, 5, 12, 9, 16, 25, 11],
14             [ 16, 24, 39, 31, 22, 9.5, 7, 18, 25],
15             );
16              
17             my $my_graph = new GD::Graph::mixed();
18              
19             $my_graph->set(
20             x_label => 'X Label',
21             y_label => 'Y label',
22             title => 'Emulation of error bars',
23             y_min_value => 0,
24             y_max_value => 50,
25             y_tick_number => 10,
26             y_label_skip => 2,
27             cumulate => 1,
28             types => [qw(area bars bars lines)],
29             dclrs => [undef, qw(lgray gray red)],
30             borderclrs => [undef, qw(black black black)],
31             line_width => 2,
32             bar_width => 4,
33              
34             transparent => 0,
35             )
36             or warn $my_graph->error;
37              
38             $my_graph->set_legend(undef, qw(increment more));
39             $my_graph->plot(\@data) or die $my_graph->error;
40             save_chart($my_graph, 'sample63');
41              
42              
43             1;