File Coverage

samples/sample62.pl
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1 1     1   2108 use GD::Graph::mixed;
  0            
  0            
2             require 'save.pl';
3              
4             print STDERR "Processing sample62\n";
5              
6             @data = (
7             ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
8             [ 9, 8, 9, 8.4, 7.1, 7.5, 8, 3, 3],
9             [ .4, .3, 1, 1, .3, 1.5, 2, 1, 0],
10             );
11              
12             $my_graph = new GD::Graph::mixed();
13              
14             $my_graph->set(
15             x_label => 'X Label',
16             y1_label => 'Y1 label',
17             y2_label => 'Y2 label',
18             title => 'A Mixed Type Graph with Two Axes',
19             two_axes => 1,
20             y1_max_value => 10,
21             y2_max_value => 2.5,
22             y_min_value => 0,
23             y_tick_number => 5,
24             long_ticks => 1,
25             x_ticks => 0,
26             legend_marker_width => 24,
27             line_width => 5,
28              
29             bar_spacing => 4,
30              
31             types => [ qw( bars lines ) ],
32              
33             transparent => 0,
34             );
35              
36             $my_graph->set_legend( qw( one two three four five six ) );
37             $my_graph->plot(\@data);
38             save_chart($my_graph, 'sample62');
39              
40              
41             1;