| line |
true |
false |
branch |
|
21
|
6 |
17 |
ref $arg ? : |
|
30
|
15 |
19 |
if (@_ == 1) { } |
|
31
|
1 |
14 |
if (ref $_[0] eq 'HASH') { } |
|
|
1 |
13 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
|
5 |
8 |
elsif (my $h = 'SVN::Dumpfile'->_is_valid_fh($_[0])) { } |
|
|
6 |
2 |
elsif (not ref $_[0]) { } |
|
53
|
1 |
31 |
if @args % 2 |
|
58
|
3 |
28 |
if (exists $$self{'version'}) |
|
74
|
1 |
6 |
if defined $uuid |
|
81
|
1 |
6 |
if defined $version |
|
89
|
1 |
27 |
unless $$self{'fh'} |
|
90
|
3 |
24 |
unless $node->read($$self{'fh'}) |
|
101
|
1 |
16 |
unless defined $node |
|
108
|
6 |
1 |
if (ref $self) { } |
|
109
|
1 |
5 |
unless $self->_process_arguments(@_) |
|
117
|
5 |
1 |
if (defined $fh) { } |
|
|
0 |
1 |
elsif (defined $file) { } |
|
122
|
0 |
0 |
unless $fh->open($file, '>') |
|
137
|
1 |
6 |
if $$self{'SVN-fs-dump-format-version'} < 1 |
|
145
|
6 |
1 |
if ($$self{'SVN-fs-dump-format-version'} > 1) |
|
146
|
1 |
5 |
if ($$self{'UUID'} eq '') |
|
190
|
11 |
14 |
if defined $$self{'fh'} |
|
197
|
10 |
13 |
if (ref $self and not defined $version) |
|
201
|
1 |
22 |
unless defined $version |
|
210
|
1 |
39 |
unless defined $h |
|
211
|
5 |
34 |
if eval {
do {
$h->isa('IO::Handle')
}
} |
|
213
|
4 |
15 |
if ref $h eq 'GLOB' or ref \$h eq 'GLOB' or $h eq 'STDIN' or $h eq 'STDOUT' |
|
237
|
5 |
0 |
if (ref $self) { } |
|
238
|
0 |
5 |
unless $self->_process_arguments(@_) |
|
245
|
0 |
5 |
if (defined $fh) { } |
|
|
5 |
0 |
elsif (defined $file) { } |
|
250
|
0 |
5 |
unless ($fh->open($file, '<')) |
|
261
|
5 |
0 |
if ($line =~ /^SVN-fs-dump-format-version: (\d+)$/) { } |
|
263
|
0 |
5 |
unless ($self->version_supported) |
|
275
|
4 |
1 |
if ($$self{'SVN-fs-dump-format-version'} > 1) |
|
278
|
3 |
1 |
if ($char eq 'U') { } |
|
280
|
3 |
0 |
if ($line =~ /^UUID: (.*)$/) { } |
|
285
|
0 |
3 |
if $char ne "\n" |