File Coverage

samples/sample93.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   1520 use GD::Graph::pie;
  0            
  0            
2             require 'save.pl';
3              
4             print STDERR "Processing sample93\n";
5              
6             @data = (
7             [ qw( 1st 2nd 3rd 4th 5th 6th 7th ) ],
8             [ sort { $b <=> $a} (5.6, 2.1, 3.03, 4.05, 1.34, 0.2, 2.56) ]
9             );
10              
11             $my_graph = new GD::Graph::pie( 200, 200 );
12              
13             $my_graph->set(
14             start_angle => 90,
15             '3d' => 0,
16             label => 'Foo Bar',
17             # The following should prevent the 7th slice from getting a label
18             suppress_angle => 5,
19              
20             transparent => 0,
21             );
22              
23             $my_graph->plot(\@data);
24             save_chart($my_graph, 'sample93');
25              
26              
27             1;