| line |
true |
false |
branch |
|
114
|
0 |
0 |
unless defined $hash{'parent'}
|
|
196
|
0 |
0 |
if ($THATMONTH < 0)
|
|
207
|
0 |
0 |
if ($THATMONTH < 0)
|
|
263
|
0 |
0 |
if ($self->{'perls'})
|
|
285
|
0 |
0 |
if ($testers)
|
|
392
|
0 |
0 |
if ($lastid) { }
|
|
401
|
0 |
0 |
if $self->{'dists'}{$row->{'dist'}} and $self->{'dists'}{$row->{'dist'}}{'VER'} eq $row->{'version'}
|
|
427
|
0 |
0 |
if $month =~ /^\d+$/ and $month > $self->{'dates'}{'THATMONTH'}
|
|
441
|
0 |
0 |
if ($file and -f $file)
|
|
442
|
0 |
0 |
if (my $fh = 'IO::File'->new($file, 'r'))
|
|
445
|
0 |
0 |
unless $d
|
|
456
|
0 |
0 |
unless $self->{'build'}{$d}{'old'}
|
|
467
|
0 |
0 |
if $row->{'postdate'} <= $self->{'dates'}{'THATMONTH'}
|
|
491
|
0 |
0 |
if (defined $self->{'dists'}{$row->{'dist'}})
|
|
494
|
0 |
0 |
if ($self->{'dists'}{$row->{'dist'}}{'VER'} eq $row->{'version'})
|
|
498
|
0 |
0 |
if $row->{'state'} eq 'fail'
|
|
499
|
0 |
0 |
if $row->{'state'} eq 'pass'
|
|
514
|
0 |
0 |
if ($row->{'postdate'} > $self->{'dates'}{'THATMONTH'})
|
|
527
|
0 |
0 |
if defined $self->{'build'}{$day}
|
|
537
|
0 |
0 |
if $self->{'count'}{$type} % 10000 == 0
|
|
539
|
0 |
0 |
if ($self->{'count'}{$type} % 100000 == 0)
|
|
547
|
0 |
0 |
if ($self->{'count'}{$type} == 1 or $self->{'count'}{$type} % 500000 == 0) { }
|
|
575
|
0 |
0 |
if ($type)
|
|
577
|
0 |
0 |
unless -f $storage
|
|
587
|
0 |
0 |
unless -f $storage
|
|
602
|
0 |
0 |
if ($type)
|
|
603
|
0 |
0 |
unless $store
|
|
608
|
0 |
0 |
if $dir and not -e $dir
|
|
615
|
0 |
0 |
unless $self->{$type}
|
|
620
|
0 |
0 |
if $dir and not -e $dir
|
|
673
|
0 |
0 |
if (-f $source) { }
|
|
675
|
0 |
0 |
if -f $target
|
|
678
|
0 |
0 |
if (-d dirname($target)) { }
|
|
698
|
0 |
0 |
if -f $target
|
|
699
|
0 |
0 |
if (-f $source) { }
|
|
731
|
0 |
0 |
$rows[0][0] ? :
|
|
733
|
0 |
0 |
$rows[0][0] ? :
|
|
735
|
0 |
0 |
if $self->{'rates'}{'report'} < 1000
|
|
736
|
0 |
0 |
if $self->{'rates'}{'distro'} < 1000
|
|
768
|
0 |
0 |
unless $self->{'dists'}{$b}{'ALL'} <=> $self->{'dists'}{$a}{'ALL'}
|
|
770
|
0 |
0 |
if --$inx <= 0
|
|
773
|
0 |
0 |
unless $self->{'dists'}{$b}{'IXL'} <=> $self->{'dists'}{$a}{'IXL'}
|
|
775
|
0 |
0 |
if --$inx <= 0
|
|
783
|
0 |
0 |
$self->{'xlast'} ? :
|
|
789
|
0 |
0 |
if $row[3]
|
|
790
|
0 |
0 |
if $row[5] and $row[5] =~ /\@/
|
|
817
|
0 |
0 |
if $row->{'dist'} eq 'perl'
|
|
823
|
0 |
0 |
if $authors{$row->{'author'}}{'dist'}{$row->{'dist'}} == 1
|
|
828
|
0 |
0 |
if $authors{$row->{'author'}}{'count'} == 1
|
|
829
|
0 |
0 |
if $distros{$row->{'dist'}}{'count'} == 1
|
|
834
|
0 |
0 |
unless my $stat6 = 'IO::File'->new("$results/stats6.txt", 'w+')
|
|
836
|
0 |
0 |
unless my $stat12 = 'IO::File'->new("$results/stats12.txt", 'w+')
|
|
876
|
0 |
0 |
if $inx > 20
|
|
880
|
0 |
0 |
unless $authors{$b}{'dists'} <=> $authors{$a}{'dists'}
|
|
882
|
0 |
0 |
if $inx > 20
|
|
886
|
0 |
0 |
unless $authors{$b}{'count'} <=> $authors{$a}{'count'}
|
|
888
|
0 |
0 |
if $inx > 20
|
|
892
|
0 |
0 |
unless $distros{$b}{'count'} <=> $distros{$a}{'count'}
|
|
894
|
0 |
0 |
if $inx > 20
|
|
935
|
0 |
0 |
if ($stats{'vcounter'} % 10000 == 0)
|
|
948
|
0 |
0 |
unless ($pause{$row->{'author'}})
|
|
951
|
0 |
0 |
if ($stats{'pcounter'} % 1000 == 0)
|
|
965
|
0 |
0 |
if $dists{$row->{'dist'}}
|
|
969
|
0 |
0 |
if ($stats{'dcounter'} % 5000 == 0)
|
|
993
|
0 |
0 |
if @list
|
|
1038
|
0 |
0 |
if $year == $start_year and $month < $start_month
|
|
1043
|
0 |
0 |
if $thismon > 'DateTime'->now
|
|
1052
|
0 |
0 |
if $seen{$row->{'dist'}}
|
|
1074
|
0 |
0 |
unless $allversions{$b} <=> $allversions{$a}
|
|
1080
|
0 |
0 |
unless $newversions{$b} <=> $newversions{$a}
|
|
1099
|
0 |
0 |
unless $row->{'reldate'} and $row->{'reldate'} =~ /^(\d+)\-(\d+)\-(\d+).(\d+):(\d+):(\d+)/
|
|
1110
|
0 |
0 |
if ($year != $now->year) { }
|
|
|
0 |
0 |
elsif ($date->week_number != $now->week_number) { }
|
|
1117
|
0 |
0 |
if ($year != $now->year or $year == $now->year and $month != $now->month)
|
|
1122
|
0 |
0 |
if ($year != $now->year or $year == $now->year and $month != $now->month or $year == $now->year and $month == $now->month and $day != $now->day)
|
|
1189
|
0 |
0 |
if $noreports and $row->{'dist'} =~ /^$noreports$/
|
|
1190
|
0 |
0 |
if $dists{$row->{'dist'}}
|
|
1191
|
0 |
0 |
if $row->{'released'} > $grace
|
|
1203
|
0 |
0 |
unless $dists{$row->{'dist'}}
|
|
1218
|
0 |
0 |
unless $dists{$row->{'dist'}}
|
|
1227
|
0 |
0 |
unless $osmap{$dist}{$os->{'osname'}}
|
|
1247
|
0 |
0 |
unless -f $missing
|
|
1248
|
0 |
0 |
unless my $fh = 'IO::File'->new($missing)
|
|
1252
|
0 |
0 |
unless $pauseid
|
|
1264
|
0 |
0 |
if @missing
|
|
1320
|
0 |
0 |
unless my $vers = shift()
|
|
1323
|
0 |
0 |
unless @$vers
|
|
1327
|
0 |
0 |
if ($type eq 'month')
|
|
1329
|
0 |
0 |
if defined $self->{'osys'}{$osname}{$perl}{'month'}{$self->{'dates'}{'LASTMONTH'}}
|
|
1330
|
0 |
0 |
if $check == 0
|
|
1336
|
0 |
0 |
$type eq 'month' ? :
|
|
|
0 |
0 |
defined $self->{'osys'}{$osname}{$perl}{$type} ? :
|
|
1354
|
0 |
0 |
unless $totals{'perl'}{$_}
|
|
1357
|
0 |
0 |
unless $totals{'os'}{$b} <=> $totals{'os'}{$a}
|
|
1358
|
0 |
0 |
if ($type eq 'month')
|
|
1360
|
0 |
0 |
if defined $self->{'osys'}{$osname}{$perl}{'month'}{$self->{'dates'}{'LASTMONTH'}}
|
|
1361
|
0 |
0 |
if $check == 0
|
|
1368
|
0 |
0 |
$type eq 'month' ? :
|
|
|
0 |
0 |
defined $self->{'osys'}{$osname}{$perl}{$type} ? :
|
|
1371
|
0 |
0 |
if ($count)
|
|
1372
|
0 |
0 |
if ($self->{'list'}{'osname'}{$osname}{$perl}{$type}) { }
|
|
1375
|
0 |
0 |
$type eq 'month' ? :
|
|
1390
|
0 |
0 |
$type eq 'month' ? :
|
|
1393
|
0 |
0 |
if $number > 0
|
|
1394
|
0 |
0 |
if $number > $matrix_limits{$type}[0]
|
|
1395
|
0 |
0 |
if $number > $matrix_limits{$type}[1]
|
|
1399
|
0 |
0 |
$count ? :
|
|
1410
|
0 |
0 |
unless $totals{'perl'}{$_}
|
|
1474
|
0 |
0 |
unless my $vers = shift()
|
|
1477
|
0 |
0 |
unless @$vers
|
|
1481
|
0 |
0 |
if ($type eq 'month')
|
|
1483
|
0 |
0 |
if defined $self->{'pass'}{$platform}{$perl}{'month'}{$self->{'dates'}{'LASTMONTH'}}
|
|
1484
|
0 |
0 |
if $check == 0
|
|
1490
|
0 |
0 |
$type eq 'month' ? :
|
|
|
0 |
0 |
defined $self->{'pass'}{$platform}{$perl}{$type} ? :
|
|
1508
|
0 |
0 |
unless $totals{'perl'}{$_}
|
|
1511
|
0 |
0 |
unless $totals{'platform'}{$b} <=> $totals{'platform'}{$a}
|
|
1512
|
0 |
0 |
if ($type eq 'month')
|
|
1514
|
0 |
0 |
if defined $self->{'pass'}{$platform}{$perl}{'month'}{$self->{'dates'}{'LASTMONTH'}}
|
|
1515
|
0 |
0 |
if $check == 0
|
|
1522
|
0 |
0 |
$type eq 'month' ? :
|
|
|
0 |
0 |
defined $self->{'pass'}{$platform}{$perl}{$type} ? :
|
|
1525
|
0 |
0 |
if ($count)
|
|
1526
|
0 |
0 |
if ($self->{'list'}{'platform'}{$platform}{$perl}{$type}) { }
|
|
1529
|
0 |
0 |
$type eq 'month' ? :
|
|
1544
|
0 |
0 |
$type eq 'month' ? :
|
|
1547
|
0 |
0 |
if $number > 0
|
|
1548
|
0 |
0 |
if $number > $matrix_limits{$type}[0]
|
|
1549
|
0 |
0 |
if $number > $matrix_limits{$type}[1]
|
|
1553
|
0 |
0 |
$count ? :
|
|
1563
|
0 |
0 |
unless $totals{'perl'}{$_}
|
|
1604
|
0 |
0 |
if ($json)
|
|
1607
|
0 |
0 |
if $date > $last
|
|
1615
|
0 |
0 |
if $last
|
|
1622
|
0 |
0 |
if $type eq 'osname'
|
|
1649
|
0 |
0 |
if ($json)
|
|
1652
|
0 |
0 |
if $date > $last
|
|
1660
|
0 |
0 |
if $last
|
|
1677
|
0 |
0 |
unless $stats{$date}{'list'}{$b} <=> $stats{$date}{'list'}{$a}
|
|
1722
|
0 |
0 |
if ($dates{$post}) { }
|
|
1724
|
0 |
0 |
unless $os
|
|
1732
|
0 |
0 |
unless $os
|
|
1768
|
0 |
0 |
unless $osname
|
|
1771
|
0 |
0 |
unless ($hash{$osname}{$b}{$type} || 0) <=> ($hash{$osname}{$a}{$type} || 0)
|
|
1788
|
0 |
0 |
$type eq 'this' ? :
|
|
1789
|
0 |
0 |
$type eq 'that' ? :
|
|
1790
|
0 |
0 |
$type eq 'all' ? :
|
|
1803
|
0 |
0 |
unless $os
|
|
1811
|
0 |
0 |
unless $testers{$b} <=> $testers{$a}
|
|
1858
|
0 |
0 |
if $date > $self->{'dates'}{'THISMONTH'}
|
|
1870
|
0 |
0 |
$reports > 0 ? :
|
|
|
0 |
0 |
$reports > 0 ? :
|
|
|
0 |
0 |
$reports > 0 ? :
|
|
1883
|
0 |
0 |
if $date > $self->{'dates'}{'THISMONTH'} - 1
|
|
1911
|
0 |
0 |
if $date > $self->{'dates'}{'THISMONTH'} - 1
|
|
1927
|
0 |
0 |
if $date > $self->{'dates'}{'THISMONTH'} - 1
|
|
1929
|
0 |
0 |
if (defined $self->{'counts'}{$date})
|
|
1935
|
0 |
0 |
if $date > $self->{'dates'}{'LASTMONTH'}
|
|
1966
|
0 |
0 |
unless $dists{$dist}
|
|
1972
|
0 |
0 |
$self->{'fails'}{$dist}{$version}{'fail'} ? :
|
|
1986
|
0 |
0 |
unless $worst{$b}{'fail'} <=> $worst{$a}{'fail'}
|
|
1987
|
0 |
0 |
unless $worst{$dist}{'fail'}
|
|
1990
|
0 |
0 |
if $count > 100
|
|
2000
|
0 |
0 |
unless $worst{$b}{'pcent'} <=> $worst{$a}{'pcent'}
|
|
2001
|
0 |
0 |
unless $worst{$dist}{'fail'}
|
|
2004
|
0 |
0 |
if $count > 100
|
|
2018
|
0 |
0 |
if $worst{$dist}{'post'} ge $recent
|
|
2024
|
0 |
0 |
unless $worst{$b}{'fail'} <=> $worst{$a}{'fail'}
|
|
2025
|
0 |
0 |
unless $worst{$dist}{'fail'}
|
|
2028
|
0 |
0 |
if $count > 100
|
|
2038
|
0 |
0 |
unless $worst{$b}{'pcent'} <=> $worst{$a}{'pcent'}
|
|
2039
|
0 |
0 |
unless $worst{$dist}{'fail'}
|
|
2042
|
0 |
0 |
if $count > 100
|
|
2065
|
0 |
0 |
if --$diff > 0
|
|
2068
|
0 |
0 |
if $self->{'build'}{$date}{'old'} == 2
|
|
2088
|
0 |
0 |
if $res
|
|
2137
|
0 |
0 |
unless $parser->process($layout, $vars, $target)
|
|
2145
|
0 |
0 |
if $num == 1 or $num == 21 or $num == 31
|
|
2146
|
0 |
0 |
if $num == 2 or $num == 22
|
|
2147
|
0 |
0 |
if $num == 3 or $num == 23
|
|
2162
|
0 |
0 |
unless my $fh = 'IO::File'->new($mailrc, 'r')
|
|
2164
|
0 |
0 |
unless /^alias\s*(\w+)\s+"([\s\w]+)\s+<[^>]+>"/
|