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 %%') |