File Coverage

samples/sample51.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   1935 use GD::Graph::lines;
  0            
  0            
2             require 'save.pl';
3              
4             print STDERR "Processing sample51\n";
5              
6             # The reverse is in here, because I thought the falling line was
7             # depressing, but I was too lazy to retype the data set
8              
9             @data = (
10             [ qw( Jan Feb Mar Apr May Jun Jul Aug Sep ) ],
11             [ reverse(4, 3, 5, 6, 3, 1.5, -1, -3, -4)],
12             );
13              
14             $my_graph = new GD::Graph::lines();
15              
16             $my_graph->set(
17             x_label => 'Month',
18             y_label => 'Measure of success',
19             title => 'A Simple Line Graph',
20             y_max_value => 8,
21             y_min_value => -6,
22             y_tick_number => 14,
23             y_label_skip => 2,
24             box_axis => 0,
25             line_width => 3,
26              
27             transparent => 0,
28             );
29              
30             $my_graph->plot(\@data);
31             save_chart($my_graph, 'sample51');
32              
33              
34             1;