| line |
true |
false |
branch |
|
87
|
0 |
0 |
unless (-e $$self{'DIR'}) |
|
88
|
0 |
0 |
unless (mkdir $$self{'DIR'}, 493) |
|
104
|
0 |
0 |
if $$self{'LIMIT'} |
|
108
|
0 |
0 |
unless $st->execute |
|
109
|
0 |
0 |
if $l[2] |
|
120
|
0 |
0 |
if $#l2 < 2 |
|
125
|
0 |
0 |
unless $my_graph->set('title', '% of successful make test for ' . $os . ' each month', 'y_max_value', 100, 'y_tick_number', 10, 'x_label_skip', $#l2 / 8, 'legend_spacing', 40, 'axis_space', 20, 't_margin', 40, 'b_margin', 10, 'box_axis', 0, 'dclrs', ['dpurple'], 'transparent', 0) |
|
150
|
0 |
0 |
if $$self{'LIMIT'} |
|
155
|
0 |
0 |
unless $my_graph->set('title', '% of successful make test each month', 'y_max_value', 100, 'y_tick_number', 10, 'x_label_skip', 3, 'legend_spacing', 40, 'axis_space', 20, 't_margin', 40, 'b_margin', 10, 'box_axis', 0, 'dclrs', ['black'], 'transparent', 0) |
|
180
|
0 |
0 |
if $$self{'LIMIT'} |
|
185
|
0 |
0 |
unless $my_graph->set('y_label', 'make test run', 'title', 'make test run/pass all tests each month', 'y_max_value', 40000, 'y_tick_number', 10, 'x_label_skip', 3, 'types', ['lines', 'area'], 'shadowclr', 'dred', 'transparent', 0, 'legend_spacing', 30, 'dclrs', ['red', 'dblue'], 'axis_space', 20, 't_margin', 50, 'b_margin', 20, 'box_axis', 0) |
|
212
|
0 |
0 |
if $$self{'LIMIT'} |
|
216
|
0 |
0 |
if (not ref $$ref[1] or ref($$ref[1] ne 'ARRAY')) |
|
224
|
0 |
0 |
unless $my_graph->set('title', 'Number of configure run by os', 'y_max_value', $my, 'y_tick_number', 5, 'show_values', 1, 'x_label_skip', 1, 'y_label_position', 0, 'axis_space', 20, 'shadowclr', 'dred', 'shadow_depth', 4, 'transparent', 0, 'bar_spacing', 10, 'legend_spacing', 40, 't_margin', 35, 'box_axis', 0) |
|
250
|
0 |
0 |
if $$self{'LIMIT'} |
|
254
|
0 |
0 |
if (not ref $$ref[1] or ref($$ref[1] ne 'ARRAY')) |
|
262
|
0 |
0 |
unless $my_graph->set('title', 'Number of smoke run by os', 'y_max_value', $my, 'y_tick_number', 10, 'show_values', 1, 'x_label_skip', 1, 'y_label_position', 0, 'axis_space', 20, 'shadowclr', 'dred', 'shadow_depth', 4, 'transparent', 0, 'bar_spacing', 10, 'legend_spacing', 40, 't_margin', 35, 'box_axis', 0) |
|
288
|
0 |
0 |
if $$self{'LIMIT'} |
|
293
|
0 |
0 |
unless $my_graph->set('title', 'Number of distinct smoke machine each month', 'y_max_value', 50, 'y_tick_number', 10, 'x_label_skip', 3, 'y_label_position', 0, 'axis_space', 20, 'shadowclr', 'dred', 'shadow_depth', 4, 'transparent', 0, 'bar_spacing', 10, 'legend_spacing', 40, 't_margin', 35, 'box_axis', 0) |
|
319
|
0 |
0 |
if $$self{'LIMIT'} |
|
324
|
0 |
0 |
unless $my_graph->set('title', 'Average % of successful make test by os', 'y_max_value', 100, 'y_tick_number', 10, 'show_values', 1, 'x_label_skip', 1, 'y_label_position', 0, 'axis_space', 20, 'shadowclr', 'dred', 'shadow_depth', 4, 'transparent', 0, 'bar_spacing', 10, 'legend_spacing', 40, 't_margin', 35, 'box_axis', 0) |
|
351
|
0 |
0 |
if $debug |
|
354
|
0 |
0 |
if $ref2 != 0 |
|
357
|
0 |
0 |
unless $ok |
|
358
|
0 |
0 |
unless $data = 'GD::Graph::Data'->new($data) |
|
364
|
0 |
0 |
unless $my_graph->plot($data) |
|
365
|
0 |
0 |
if $debug |
|
373
|
0 |
0 |
unless my $chart = shift() |
|
374
|
0 |
0 |
unless my $name = shift() |
|
375
|
0 |
0 |
unless $name and $chart |
|
377
|
0 |
0 |
unless open OUT, ">$name.png" |
|
391
|
0 |
0 |
if $debug |
|
393
|
0 |
0 |
if $debug |
|
395
|
0 |
0 |
if $limit and $$_[1] < $limit or not $$_[1] || $$_[0] |
|
400
|
0 |
0 |
if $debug |
|
410
|
0 |
0 |
if $$self{'opts'}{'debug'} |
|
411
|
0 |
0 |
unless open STATS, ">$mt.html" |
|
432
|
0 |
0 |
unless my $content = get('http://testers.cpan.org/search?request=by-config') |
|
440
|
0 |
0 |
if $i == 0 |
|
442
|
0 |
0 |
if --$i == $#content2 |
|
444
|
0 |
0 |
if (m[]*>(.*).*(\d*)]) |
|
448
|
0 |
0 |
if ($i == 4 and $val) { } |
|
|
0 |
0 |
elsif ($i == 3 and $val) { } |
|
|
0 |
0 |
elsif ($i == 2 and $val) { } |
|
|
0 |
0 |
elsif ($i == 1 and $val) { } |
|
453
|
0 |
0 |
if $i == 1 |
|
455
|
0 |
0 |
unless $perl and $os and $osver and $archi and $num |
|
464
|
0 |
0 |
if ($$ref[0] eq '5.008') { } |
|
|
0 |
0 |
elsif ($$ref[0] eq '5.006_01') { } |
|
|
0 |
0 |
elsif ($$ref[0] eq '5.005_03') { } |
|
492
|
0 |
0 |
if ($perl{$r} < 2) |
|
504
|
0 |
0 |
unless $my_graph->set('title', $title, 'show_values', 1, 'axis_space', 20, 't_margin', 40, 'b_margin', 20, 'box_axis', 0, 'transparent', 0, 'shadowclr', 'dred', 'legend_spacing', 40, 'shadow_depth', 4, 'transparent', 0, 'bar_spacing', 20, 'values_format', '%2.1f %%') |