File Coverage

samples/sample92.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   2130 use GD::Graph::pie;
  0            
  0            
2             require 'save.pl';
3              
4             print STDERR "Processing sample92\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              
13             $my_graph->set(
14             title => 'A Pie Chart',
15             label => 'Label',
16             axislabelclr => 'white',
17             dclrs => [ 'lblue' ],
18             accentclr => 'lgray',
19              
20             transparent => 0,
21             );
22              
23             $my_graph->set_title_font('../cetus.ttf', 18);
24             $my_graph->set_label_font('../cetus.ttf', 12);
25             $my_graph->set_value_font('../cetus.ttf', 10);
26              
27             $my_graph->plot(\@data);
28             save_chart($my_graph, 'sample92');
29              
30              
31             1;