File Coverage

samples/sample21.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   2811 use GD::Graph::area;
  0            
  0            
2             use strict;
3             require 'save.pl';
4              
5             my @data = (
6             ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
7             [ 5, 12, 24, 33, 19,undef, 6, 15, 21],
8             [ 1, 2, 5, 6, 3, 1.5, 1, 3, 4]
9             );
10              
11             my @names = qw/sample21/;
12              
13             for my $graph (GD::Graph::area->new)
14             {
15             my $name = shift @names;
16             print STDERR "Processing $name\n";
17              
18             $graph->set(
19             x_label => 'X Label',
20             y_label => 'Y label',
21             title => 'An Area Graph',
22             #y_max_value => 40,
23             #y_tick_number => 8,
24             #y_label_skip => 2,
25             #accent_treshold => 41,
26             transparent => 0,
27             );
28              
29             $graph->set_legend( 'one', 'two' );
30             $graph->plot(\@data);
31             save_chart($graph, $name);
32             }
33              
34              
35             1;