| 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)
|
|
393
|
0 |
0 |
if ($lastid) { }
|
|
402
|
0 |
0 |
if $self->{'dists'}{$row->{'dist'}} and $self->{'dists'}{$row->{'dist'}}{'VER'} eq $row->{'version'}
|
|
428
|
0 |
0 |
if $month =~ /^\d+$/ and $month > $self->{'dates'}{'THATMONTH'}
|
|
442
|
0 |
0 |
if ($file and -f $file)
|
|
443
|
0 |
0 |
if (my $fh = 'IO::File'->new($file, 'r'))
|
|
446
|
0 |
0 |
unless $d
|
|
457
|
0 |
0 |
unless $self->{'build'}{$d}{'old'}
|
|
468
|
0 |
0 |
if $row->{'postdate'} <= $self->{'dates'}{'THATMONTH'}
|
|
492
|
0 |
0 |
if (defined $self->{'dists'}{$row->{'dist'}})
|
|
495
|
0 |
0 |
if ($self->{'dists'}{$row->{'dist'}}{'VER'} eq $row->{'version'})
|
|
499
|
0 |
0 |
if $row->{'state'} eq 'fail'
|
|
500
|
0 |
0 |
if $row->{'state'} eq 'pass'
|
|
515
|
0 |
0 |
if ($row->{'postdate'} > $self->{'dates'}{'THATMONTH'})
|
|
528
|
0 |
0 |
if defined $self->{'build'}{$day}
|
|
538
|
0 |
0 |
if $self->{'count'}{$type} % 10000 == 0
|
|
540
|
0 |
0 |
if ($self->{'count'}{$type} % 100000 == 0)
|
|
548
|
0 |
0 |
if ($self->{'count'}{$type} == 1 or $self->{'count'}{$type} % 500000 == 0) { }
|
|
576
|
0 |
0 |
if ($type)
|
|
578
|
0 |
0 |
unless -f $storage
|
|
588
|
0 |
0 |
unless -f $storage
|
|
603
|
0 |
0 |
if ($type)
|
|
604
|
0 |
0 |
unless $store
|
|
609
|
0 |
0 |
if $dir and not -e $dir
|
|
616
|
0 |
0 |
unless $self->{$type}
|
|
621
|
0 |
0 |
if $dir and not -e $dir
|
|
674
|
0 |
0 |
if (-f $source) { }
|
|
676
|
0 |
0 |
if -f $target
|
|
679
|
0 |
0 |
if (-d dirname($target)) { }
|
|
699
|
0 |
0 |
if -f $target
|
|
700
|
0 |
0 |
if (-f $source) { }
|
|
732
|
0 |
0 |
$rows[0][0] ? :
|
|
734
|
0 |
0 |
$rows[0][0] ? :
|
|
736
|
0 |
0 |
if $self->{'rates'}{'report'} < 1000
|
|
737
|
0 |
0 |
if $self->{'rates'}{'distro'} < 1000
|
|
769
|
0 |
0 |
unless $self->{'dists'}{$b}{'ALL'} <=> $self->{'dists'}{$a}{'ALL'}
|
|
771
|
0 |
0 |
if --$inx <= 0
|
|
774
|
0 |
0 |
unless $self->{'dists'}{$b}{'IXL'} <=> $self->{'dists'}{$a}{'IXL'}
|
|
776
|
0 |
0 |
if --$inx <= 0
|
|
784
|
0 |
0 |
$self->{'xlast'} ? :
|
|
790
|
0 |
0 |
if $row[3]
|
|
791
|
0 |
0 |
if $row[5] and $row[5] =~ /\@/
|
|
818
|
0 |
0 |
if $row->{'dist'} eq 'perl'
|
|
824
|
0 |
0 |
if $authors{$row->{'author'}}{'dist'}{$row->{'dist'}} == 1
|
|
829
|
0 |
0 |
if $authors{$row->{'author'}}{'count'} == 1
|
|
830
|
0 |
0 |
if $distros{$row->{'dist'}}{'count'} == 1
|
|
835
|
0 |
0 |
unless my $stat6 = 'IO::File'->new("$results/stats6.txt", 'w+')
|
|
837
|
0 |
0 |
unless my $stat12 = 'IO::File'->new("$results/stats12.txt", 'w+')
|
|
877
|
0 |
0 |
if $inx > 20
|
|
881
|
0 |
0 |
unless $authors{$b}{'dists'} <=> $authors{$a}{'dists'}
|
|
883
|
0 |
0 |
if $inx > 20
|
|
887
|
0 |
0 |
unless $authors{$b}{'count'} <=> $authors{$a}{'count'}
|
|
889
|
0 |
0 |
if $inx > 20
|
|
893
|
0 |
0 |
unless $distros{$b}{'count'} <=> $distros{$a}{'count'}
|
|
895
|
0 |
0 |
if $inx > 20
|
|
936
|
0 |
0 |
if ($stats{'vcounter'} % 10000 == 0)
|
|
949
|
0 |
0 |
unless ($pause{$row->{'author'}})
|
|
952
|
0 |
0 |
if ($stats{'pcounter'} % 1000 == 0)
|
|
966
|
0 |
0 |
if $dists{$row->{'dist'}}
|
|
970
|
0 |
0 |
if ($stats{'dcounter'} % 5000 == 0)
|
|
994
|
0 |
0 |
if @list
|
|
1039
|
0 |
0 |
if $year == $start_year and $month < $start_month
|
|
1044
|
0 |
0 |
if $thismon > 'DateTime'->now
|
|
1053
|
0 |
0 |
if $seen{$row->{'dist'}}
|
|
1075
|
0 |
0 |
unless $allversions{$b} <=> $allversions{$a}
|
|
1081
|
0 |
0 |
unless $newversions{$b} <=> $newversions{$a}
|
|
1100
|
0 |
0 |
unless $row->{'reldate'} and $row->{'reldate'} =~ /^(\d+)\-(\d+)\-(\d+).(\d+):(\d+):(\d+)/
|
|
1111
|
0 |
0 |
if ($year != $now->year) { }
|
|
|
0 |
0 |
elsif ($date->week_number != $now->week_number) { }
|
|
1118
|
0 |
0 |
if ($year != $now->year or $year == $now->year and $month != $now->month)
|
|
1123
|
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)
|
|
1191
|
0 |
0 |
if $noreports and $row->{'dist'} =~ /^$noreports$/
|
|
1192
|
0 |
0 |
if $dists{$row->{'dist'}}
|
|
1193
|
0 |
0 |
if $row->{'released'} >= $grace
|
|
1230
|
0 |
0 |
if $noreports and $row->{'dist'} =~ /^$noreports$/
|
|
1231
|
0 |
0 |
if $dists{$row->{'dist'}}
|
|
1234
|
0 |
0 |
if $row->{'count'} > 0
|
|
1235
|
0 |
0 |
if not $row->{'oncpan'} or $row->{'oncpan'} != 1
|
|
1236
|
0 |
0 |
if $row->{'released'} > $grace
|
|
1279
|
0 |
0 |
unless -f $missing
|
|
1280
|
0 |
0 |
unless my $fh = 'IO::File'->new($missing)
|
|
1284
|
0 |
0 |
unless $pauseid
|
|
1296
|
0 |
0 |
if @missing
|
|
1352
|
0 |
0 |
unless my $vers = shift()
|
|
1355
|
0 |
0 |
unless @$vers
|
|
1359
|
0 |
0 |
if ($type eq 'month')
|
|
1361
|
0 |
0 |
if defined $self->{'osys'}{$osname}{$perl}{'month'}{$self->{'dates'}{'LASTMONTH'}}
|
|
1362
|
0 |
0 |
if $check == 0
|
|
1368
|
0 |
0 |
$type eq 'month' ? :
|
|
|
0 |
0 |
defined $self->{'osys'}{$osname}{$perl}{$type} ? :
|
|
1386
|
0 |
0 |
unless $totals{'perl'}{$_}
|
|
1389
|
0 |
0 |
unless $totals{'os'}{$b} <=> $totals{'os'}{$a}
|
|
1390
|
0 |
0 |
if ($type eq 'month')
|
|
1392
|
0 |
0 |
if defined $self->{'osys'}{$osname}{$perl}{'month'}{$self->{'dates'}{'LASTMONTH'}}
|
|
1393
|
0 |
0 |
if $check == 0
|
|
1400
|
0 |
0 |
$type eq 'month' ? :
|
|
|
0 |
0 |
defined $self->{'osys'}{$osname}{$perl}{$type} ? :
|
|
1403
|
0 |
0 |
if ($count)
|
|
1404
|
0 |
0 |
if ($self->{'list'}{'osname'}{$osname}{$perl}{$type}) { }
|
|
1407
|
0 |
0 |
$type eq 'month' ? :
|
|
1422
|
0 |
0 |
$type eq 'month' ? :
|
|
1425
|
0 |
0 |
if $number > 0
|
|
1426
|
0 |
0 |
if $number > $matrix_limits{$type}[0]
|
|
1427
|
0 |
0 |
if $number > $matrix_limits{$type}[1]
|
|
1431
|
0 |
0 |
$count ? :
|
|
1442
|
0 |
0 |
unless $totals{'perl'}{$_}
|
|
1506
|
0 |
0 |
unless my $vers = shift()
|
|
1509
|
0 |
0 |
unless @$vers
|
|
1513
|
0 |
0 |
if ($type eq 'month')
|
|
1515
|
0 |
0 |
if defined $self->{'pass'}{$platform}{$perl}{'month'}{$self->{'dates'}{'LASTMONTH'}}
|
|
1516
|
0 |
0 |
if $check == 0
|
|
1522
|
0 |
0 |
$type eq 'month' ? :
|
|
|
0 |
0 |
defined $self->{'pass'}{$platform}{$perl}{$type} ? :
|
|
1540
|
0 |
0 |
unless $totals{'perl'}{$_}
|
|
1543
|
0 |
0 |
unless $totals{'platform'}{$b} <=> $totals{'platform'}{$a}
|
|
1544
|
0 |
0 |
if ($type eq 'month')
|
|
1546
|
0 |
0 |
if defined $self->{'pass'}{$platform}{$perl}{'month'}{$self->{'dates'}{'LASTMONTH'}}
|
|
1547
|
0 |
0 |
if $check == 0
|
|
1554
|
0 |
0 |
$type eq 'month' ? :
|
|
|
0 |
0 |
defined $self->{'pass'}{$platform}{$perl}{$type} ? :
|
|
1557
|
0 |
0 |
if ($count)
|
|
1558
|
0 |
0 |
if ($self->{'list'}{'platform'}{$platform}{$perl}{$type}) { }
|
|
1561
|
0 |
0 |
$type eq 'month' ? :
|
|
1576
|
0 |
0 |
$type eq 'month' ? :
|
|
1579
|
0 |
0 |
if $number > 0
|
|
1580
|
0 |
0 |
if $number > $matrix_limits{$type}[0]
|
|
1581
|
0 |
0 |
if $number > $matrix_limits{$type}[1]
|
|
1585
|
0 |
0 |
$count ? :
|
|
1595
|
0 |
0 |
unless $totals{'perl'}{$_}
|
|
1636
|
0 |
0 |
if ($json)
|
|
1639
|
0 |
0 |
if $date > $last
|
|
1647
|
0 |
0 |
if $last
|
|
1654
|
0 |
0 |
if $type eq 'osname'
|
|
1681
|
0 |
0 |
if ($json)
|
|
1684
|
0 |
0 |
if $date > $last
|
|
1692
|
0 |
0 |
if $last
|
|
1709
|
0 |
0 |
unless $stats{$date}{'list'}{$b} <=> $stats{$date}{'list'}{$a}
|
|
1754
|
0 |
0 |
if ($dates{$post}) { }
|
|
1756
|
0 |
0 |
unless $os
|
|
1764
|
0 |
0 |
unless $os
|
|
1800
|
0 |
0 |
unless $osname
|
|
1803
|
0 |
0 |
unless ($hash{$osname}{$b}{$type} || 0) <=> ($hash{$osname}{$a}{$type} || 0)
|
|
1820
|
0 |
0 |
$type eq 'this' ? :
|
|
1821
|
0 |
0 |
$type eq 'that' ? :
|
|
1822
|
0 |
0 |
$type eq 'all' ? :
|
|
1835
|
0 |
0 |
unless $os
|
|
1843
|
0 |
0 |
unless $testers{$b} <=> $testers{$a}
|
|
1890
|
0 |
0 |
if $date > $self->{'dates'}{'THISMONTH'}
|
|
1902
|
0 |
0 |
$reports > 0 ? :
|
|
|
0 |
0 |
$reports > 0 ? :
|
|
|
0 |
0 |
$reports > 0 ? :
|
|
1915
|
0 |
0 |
if $date > $self->{'dates'}{'THISMONTH'} - 1
|
|
1943
|
0 |
0 |
if $date > $self->{'dates'}{'THISMONTH'} - 1
|
|
1959
|
0 |
0 |
if $date > $self->{'dates'}{'THISMONTH'} - 1
|
|
1961
|
0 |
0 |
if (defined $self->{'counts'}{$date})
|
|
1967
|
0 |
0 |
if $date > $self->{'dates'}{'LASTMONTH'}
|
|
1998
|
0 |
0 |
unless $dists{$dist}
|
|
2004
|
0 |
0 |
$self->{'fails'}{$dist}{$version}{'fail'} ? :
|
|
2018
|
0 |
0 |
unless $worst{$b}{'fail'} <=> $worst{$a}{'fail'}
|
|
2019
|
0 |
0 |
unless $worst{$dist}{'fail'}
|
|
2022
|
0 |
0 |
if $count > 100
|
|
2032
|
0 |
0 |
unless $worst{$b}{'pcent'} <=> $worst{$a}{'pcent'}
|
|
2033
|
0 |
0 |
unless $worst{$dist}{'fail'}
|
|
2036
|
0 |
0 |
if $count > 100
|
|
2050
|
0 |
0 |
if $worst{$dist}{'post'} ge $recent
|
|
2056
|
0 |
0 |
unless $worst{$b}{'fail'} <=> $worst{$a}{'fail'}
|
|
2057
|
0 |
0 |
unless $worst{$dist}{'fail'}
|
|
2060
|
0 |
0 |
if $count > 100
|
|
2070
|
0 |
0 |
unless $worst{$b}{'pcent'} <=> $worst{$a}{'pcent'}
|
|
2071
|
0 |
0 |
unless $worst{$dist}{'fail'}
|
|
2074
|
0 |
0 |
if $count > 100
|
|
2097
|
0 |
0 |
if --$diff > 0
|
|
2100
|
0 |
0 |
if $self->{'build'}{$date}{'old'} == 2
|
|
2120
|
0 |
0 |
if $res
|
|
2169
|
0 |
0 |
unless $parser->process($layout, $vars, $target)
|
|
2177
|
0 |
0 |
if $num == 1 or $num == 21 or $num == 31
|
|
2178
|
0 |
0 |
if $num == 2 or $num == 22
|
|
2179
|
0 |
0 |
if $num == 3 or $num == 23
|
|
2194
|
0 |
0 |
unless my $fh = 'IO::File'->new($mailrc, 'r')
|
|
2196
|
0 |
0 |
unless /^alias\s*(\w+)\s+"([\s\w]+)\s+<[^>]+>"/
|