| line |
true |
false |
branch |
|
42
|
0 |
29 |
if $] < 5.008 |
|
44
|
0 |
29 |
if $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cA") ne "\000" |
|
48
|
29 |
0 |
$] >= 5.006 ? : |
|
50
|
10 |
19 |
unless $pipe_success |
|
60
|
13 |
5 |
unless wantarray |
|
63
|
5 |
13 |
if wantarray |
|
64
|
5 |
13 |
wantarray ? : |
|
74
|
0 |
10 |
eval {
do {
run_tla 'help --help'
}
} ? : |
|
80
|
0 |
2185 |
if $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cD") ne "\000" |
|
82
|
0 |
2185 |
unless open FILE, "<$file_name" |
|
85
|
0 |
2185 |
unless close FILE |
|
86
|
9 |
2176 |
if ($content_ref) |
|
87
|
6 |
3 |
if ref $content_ref eq 'SCALAR' |
|
88
|
3 |
6 |
if (ref $content_ref eq 'ARRAY') |
|
93
|
2176 |
9 |
defined wantarray ? : |
|
98
|
0 |
2131 |
if $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cD") ne "\000" |
|
100
|
0 |
2131 |
unless open FILE, ">$file_name" |
|
102
|
0 |
0 |
m[$/$] ? : |
|
103
|
0 |
4 |
ref $_[0] eq 'ARRAY' ? : |
|
|
2127 |
4 |
ref $_[0] eq 'SCALAR' ? : |
|
105
|
0 |
2131 |
unless close FILE |
|
113
|
0 |
1 |
if $out |
|
118
|
0 |
4 |
unless @dirs |
|
120
|
0 |
4 |
if $out |
|
129
|
0 |
9 |
unless defined $subdir |
|
130
|
6 |
3 |
unless $subdir eq '' |
|
132
|
0 |
9 |
if -e _ and not -d _ && -w _ |
|
134
|
6 |
3 |
unless (-e _) |
|
135
|
0 |
6 |
if $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cB") ne "\000" |
|
137
|
0 |
6 |
unless mkdir $dir, 511 |
|
149
|
0 |
0 |
if ($date =~ /\w+ (\w+) +(\d+) +(\d+):(\d+):(\d+) (\w+) (\d+)/) |
|
161
|
1 |
0 |
if ($creator =~ /^(.*?)\s*<((?:(.+?)@)?.*)>$/) |
|
170
|
0 |
0 |
unless $full_revision |
|
172
|
0 |
0 |
unless $full_revision =~ /^(.*--.*?)(\w+)-(\d+)$/ |
|
176
|
0 |
0 |
if $new_num < 0 |
|
177
|
0 |
0 |
$new_num ? : |
|
|
0 |
0 |
$new_num ? : |
|
|
0 |
0 |
$2 =~ /^patch|base$/ ? : |
|
186
|
0 |
19 |
unless $date_str =~ /^(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}):(\d{2}) ([^\s]+)/ |
|
193
|
18 |
1 |
unless wantarray |
|
199
|
0 |
12 |
if $daysago <= -10000 |
|
202
|
3 |
3 |
$days <= 550 ? : |
|
|
0 |
6 |
$days <= 59 ? : |
|
|
5 |
6 |
$days <= 33 ? : |
|
|
1 |
11 |
$days == 1 ? : |
|
218
|
0 |
0 |
unless $spaces |
|
229
|
0 |
0 |
unless my($name, $kind) = $line1 =~ /^(\S+)(?:\s+\((.*?)\))?/ |
|
231
|
0 |
0 |
$kind =~ /import/ ? : |
|
|
0 |
0 |
$kind =~ /tag/ ? : |
|
|
0 |
0 |
!$kind ? : |
|
232
|
0 |
0 |
unless my($date, $creator) = $line2 =~ /^(.+?)\s{6}(.*)/ |
|
238
|
0 |
0 |
if $name =~ s/^(.*)--(.*)/$2/ |