File Coverage

samples/sample52.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   1527 use GD::Graph::lines;
  0            
  0            
2             require 'save.pl';
3              
4             print STDERR "Processing sample52\n";
5              
6             @data = (
7             [ qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) ],
8             [ reverse(4, 3, 5, 6, 3, 1.5, -1, -3, -4, -6, -7, -8)],
9             [ (4, 3, 5, 6, 3, 1.5, -1, -3, -4, -6, -7, -8)],
10             [ (2, 2, 2, 5, 5, 4.5,1.5, 2, 3, 5, 4, 3)],
11             );
12              
13             $my_graph = new GD::Graph::lines();
14              
15             $my_graph->set(
16             x_label => 'Month',
17             y_label => 'Measure of success',
18             title => 'A Simple Line Graph',
19              
20             y_max_value => 8,
21             y_min_value => -8,
22             y_tick_number => 16,
23             y_label_skip => 2,
24             box_axis => 0,
25             line_width => 3,
26             zero_axis_only => 1,
27             x_label_position => 1,
28             y_label_position => 1,
29              
30             x_label_skip => 3,
31             #x_last_label_skip => 1,
32             x_tick_offset => 2,
33              
34             transparent => 0,
35             );
36              
37             $my_graph->set_legend("Us", "Them", "Others");
38             $my_graph->plot(\@data);
39             save_chart($my_graph, 'sample52');
40              
41              
42             1;