| 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'} |