File Coverage

samples/sample23.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   1495 use GD::Graph::area;
  0            
  0            
2             require 'save.pl';
3              
4             # CONTRIB Edwin Hildebrand.
5             #
6             # See changes in bars.pm: Check for bar height rounding errors when
7             # stacking bars.
8              
9             print STDERR "Processing sample23\n";
10              
11             @dat = qw(
12             991006 991007 991114 991117 991118 991119 991120
13             991121 991122 991123 991124 991125 991126 991127
14             991128 991129 991130 991201 991204 991205 991206
15             991207 991208
16             );
17              
18             @sub = qw(0 0 0 0 0 0 0 0 1 1 1 1 2 3 1 1 1 1 2 2 6 8 8);
19             @def = qw(0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0);
20             @rej = qw(0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0);
21             @opn = qw(4 4 4 5 4 4 4 4 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3);
22             @ass = qw(0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0);
23             @wrk = qw(1 2 2 2 2 2 1 1 2 2 2 1 1 1 1 1 1 1 1 1 3 6 5);
24             @fin = qw(0 0 0 0 0 0 1 0 0 0 0 1 1 1 2 2 2 2 2 2 2 2 2);
25             @ver = qw(0 0 0 0 0 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1);
26             @con = qw(0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0);
27             @tst = qw(0 0 0 0 0 0 0 0 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1);
28             @rev = qw(0 0 0 0 0 0 0 0 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1);
29             @cco = qw(0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 0);
30             @cls = qw(0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 1 0 0 0 0);
31             @sld = qw(0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 2 2 3 3 3 4);
32              
33             # setup x data
34             push(@data,\@dat); # push x labels into plot data
35             push(@data,\@sub);
36             push(@data,\@def);
37             push(@data,\@rej);
38             push(@data,\@opn);
39             push(@data,\@ass); # push x values into plot data
40             push(@data,\@wrk); # (push order must match legend label order)
41             push(@data,\@fin);
42             push(@data,\@ver);
43             push(@data,\@con);
44             push(@data,\@tst);
45             push(@data,\@rev);
46             push(@data,\@cco);
47             push(@data,\@cls);
48             push(@data,\@sld);
49              
50             # setup legend labels
51             @legend = qw(
52             Submitted Deferred Rejected Opened Assigned Work
53             Finished Verified Configured Tested Reviewed
54             Closed-CO Closed Sealed
55             );
56              
57             # get graph object
58             $graph = GD::Graph::area->new(600, 400);
59              
60             # set graph legend
61             $graph->set_legend(@legend);
62              
63             # set graph options
64             $graph->set(
65             'dclrs' => [ qw(lblue lyellow blue yellow lgreen lred
66             green red purple orange pink dyellow) ],
67             'title' => "States by Time",
68             'x_label' => "Time",
69             'y_label' => "# OF thingies",
70             'long_ticks' => 1,
71             'tick_length' => 0,
72             'x_ticks' => 0,
73             'x_label_position' => .5,
74             'y_label_position' => .5,
75              
76             'cumulate' => 2,
77              
78             'bgclr' => 'white',
79             'transparent' => 0,
80              
81             'y_tick_number' => 5,
82             'y_number_format' => '%d',
83             #'y_max_value' => 25,
84             #'y_min_value' => 0,
85             'y_plot_values' => 1,
86             'x_plot_values' => 1,
87             'x_labels_vertical'=> 1,
88             'zero_axis' => 1,
89             'lg_cols' => 7,
90              
91             'accent_treshold' => 100_000,
92             );
93              
94             $graph->plot(\@data);
95             save_chart($graph, 'sample23');
96              
97              
98             1;