File Coverage

samples/sample91.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   1972 use GD::Graph::pie;
  0            
  0            
2             require 'save.pl';
3              
4             print STDERR "Processing sample91\n";
5              
6             @data = (
7             ["1st","2nd","3rd","4th","5th","6th"],
8             [ 4, 2, 3, 4, 3, 3.5]
9             );
10              
11             $my_graph = new GD::Graph::pie( 250, 200 );
12             #$my_graph = new GD::Graph::pie( );
13              
14             $my_graph->set(
15             title => 'A Pie Chart',
16             label => 'Label',
17             axislabelclr => 'black',
18             pie_height => 36,
19              
20             l_margin => 15,
21             r_margin => 15,
22              
23             start_angle => 235,
24              
25             transparent => 0,
26             );
27              
28             $my_graph->plot(\@data);
29             save_chart($my_graph, 'sample91');
30              
31              
32             1;