| line |
true |
false |
branch |
|
14
|
0 |
3360 |
unless my $file = delete $args{'file'}
|
|
26
|
0 |
2862 |
unless open my $fh, "<", $self->{'file'}
|
|
28
|
0 |
2862 |
if $@
|
|
35
|
83 |
44 |
unless @_
|
|
38
|
19 |
25 |
unless @_
|
|
58
|
44 |
423 |
if (@_)
|
|
61
|
2 |
42 |
if exists $self->{'new'}{$key}
|
|
68
|
7 |
416 |
keys %{$$self{'new'};} ? :
|
|
69
|
4 |
419 |
wantarray ? :
|
|
74
|
0 |
0 |
unless defined $x or defined $y
|
|
75
|
2 |
93 |
unless defined $x and defined $y
|
|
87
|
3 |
230 |
if ref $self->{'new'}{$key}
|
|
88
|
135 |
95 |
if ref $self->{'disk'}{$key} or not exists $self->{'disk'}{$key}
|
|
89
|
87 |
8 |
if $self->_same($self->{'new'}{$key}, $self->{'disk'}{$key})
|
|
92
|
252 |
0 |
if (my $file = $self->{'file'})
|
|
95
|
28 |
224 |
unless -e $dir and -d $dir
|
|
97
|
122 |
102 |
if -e $file and not keys %{$$self{"new"};}
|
|
110
|
0 |
102 |
unless open my $fh, ">", $file
|
|
131
|
0 |
1 |
unless open my $fh, ">", $args{'file'}
|