File Coverage

samples/sample57.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   1498 use strict;
  1         2  
  1         28  
2 1     1   25 use GD::Graph::lines;
  0            
  0            
3             require 'save.pl';
4              
5             my @data = (
6             ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
7             [ 35, 32, 34, 33, 39, 38, 36, 35, 31],
8             [ 1, 2, 5, 6, 3, 1.5, 1, 1.3, 2]
9             );
10              
11             my $name = 'sample57';
12              
13             my $graph = GD::Graph::lines->new;
14              
15             print STDERR "Processing $name\n";
16              
17             $graph->set(
18             two_axes => 1,
19             zero_axis => 1,
20             title => 'Test of two_axes min/max calculation',
21              
22             transparent => 0,
23             );
24              
25             $graph->set_legend( 'left axis', 'right axis' );
26             $graph->plot(\@data);
27             save_chart($graph, $name);
28              
29             1;