File Coverage

samples/sample94.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   1500 use GD::Graph::pie;
  0            
  0            
2             use strict;
3             require 'save.pl';
4              
5             # Test for very large slices that wrap around, and for text that
6             # is larger than the pie boundaries
7              
8             print STDERR "Processing sample94\n";
9              
10             my @data = (
11             ["Oversized label", "label", undef],
12             [3, 2.5, 23]
13             );
14              
15             my $my_graph = new GD::Graph::pie( 250, 200 );
16              
17             $my_graph->set(
18             title => 'A Pie Chart',
19             label => 'Label',
20             axislabelclr => 'black',
21             pie_height => 36,
22             l_margin => 10,
23             r_margin => 10,
24             # approximate boundary conditions for start_angle
25             #start_angle => -85,
26             #start_angle => 15,
27              
28             transparent => 0,
29             );
30              
31             $my_graph->set_value_font(GD::Font->Giant);
32              
33             $my_graph->plot(\@data);
34             save_chart($my_graph, 'sample94');
35              
36              
37             1;