| line |
true |
false |
branch |
|
38
|
0 |
120 |
if (ref $args{'store'}) { } |
|
41
|
85 |
35 |
$args{'store'} =~ /\:\:/ ? : |
|
43
|
0 |
120 |
if $@ |
|
47
|
94 |
26 |
if ($ele) |
|
61
|
26 |
0 |
if (not ref $lite) { } |
|
62
|
5 |
21 |
unless (-f $file) |
|
63
|
0 |
5 |
unless open FIL, '>', $file |
|
90
|
13 |
0 |
unless $newgen or $args{'check_in_anyway'} |
|
115
|
0 |
0 |
$vol ? : |
|
134
|
0 |
58 |
if ($args{'time'}) |
|
137
|
0 |
0 |
if $branch |
|
139
|
0 |
0 |
unless /^$branch\d+$/ |
|
140
|
0 |
0 |
if $$self{'generation'}{$_}{'updated'} > $args{'time'} |
|
141
|
0 |
0 |
if $$self{'generation'}{$_}{'updated'} > $latest_time |
|
144
|
0 |
0 |
unless $latest_time |
|
146
|
0 |
58 |
if $$self{'generation'} and not $$self{'generation'}{$gen} |
|
151
|
121 |
2732 |
if ($skip_to) |
|
152
|
25 |
96 |
if (/^=$skip_to$/) |
|
157
|
60 |
2672 |
if (my($type, $gensel) = /^([+-])(.+)/) |
|
158
|
25 |
35 |
if (_is_parent_of($gensel, $gen) ^ $type eq '+') |
|
163
|
35 |
2637 |
if /^=/ |
|
165
|
2637 |
0 |
if (/^ /) |
|
181
|
1 |
3 |
unless $before->delta($chg) |
|
186
|
0 |
3 |
unless open $out, '>', $updfile |
|
211
|
0 |
9 |
unless open $out, '>', $file |
|
232
|
0 |
17 |
unless open $out, '>', $newfil |
|
247
|
28 |
25 |
if (my $cont = $self->_contents) { } |
|
249
|
4 |
1114 |
if ($skip_to) |
|
251
|
2 |
2 |
if (/^=$skip_to$/) |
|
256
|
7 |
1107 |
if (my($type, $gen) = /^([+-])(.+)/) |
|
257
|
0 |
7 |
if @closers |
|
260
|
2 |
5 |
if (_is_parent_of($gen, $genbase) ^ $type eq '+') |
|
265
|
5 |
1102 |
if (my($gen) = /^=(.+)/) |
|
269
|
1102 |
0 |
if (/^ /) |
|
270
|
2 |
1100 |
if @closers |
|
277
|
3 |
25 |
if @closers |
|
292
|
1102 |
260 |
if ($c1) |
|
294
|
5 |
1097 |
if defined $$c1[2] |
|
296
|
1362 |
0 |
if $c2 |
|
298
|
9 |
1353 |
if $prev ne 'u' and $ind ne $prev |
|
299
|
9 |
1353 |
if (@pending and $ind ne 'c') |
|
303
|
9 |
1353 |
if ($prev =~ /[u+]/ and $ind =~ /[c-]/) |
|
307
|
260 |
1102 |
if ($ind eq '+') { } |
|
308
|
6 |
254 |
if $prev ne $ind |
|
314
|
38 |
1324 |
if ($ind eq 'c') |
|
315
|
9 |
29 |
if $prev ne $ind |
|
321
|
6 |
22 |
if $prev ne 'u' |
|
322
|
14 |
14 |
unless $changed |
|
334
|
49 |
18 |
unless @g2v |
|
335
|
0 |
18 |
unless @g1v |
|
336
|
0 |
18 |
if @g1v > 1 |
|
354
|
37 |
106 |
if @_ |
|
355
|
25 |
118 |
unless exists $$self{'contents'} |