| line |
true |
false |
branch |
|
20
|
3 |
2 |
if $self->tied_file |
|
28
|
0 |
1 |
if ($self->_rdonly and not -e $self->pathname) |
|
39
|
0 |
2 |
if $self->tied_file |
|
40
|
1 |
1 |
if $self->_assert |
|
42
|
1 |
1 |
@$dbm_list ? : |
|
47
|
2 |
4 |
if (defined $INC{$file} or eval "eval 'use $module; 1'") |
|
52
|
0 |
2 |
unless defined $self->_dbm_class |
|
54
|
0 |
2 |
$self->_rdonly ? : |
|
55
|
0 |
2 |
if ($self->_dbm_class eq 'DB_File::Lock') |
|
57
|
0 |
0 |
if $@ |
|
59
|
0 |
0 |
unless $self->_rdwr or $self->_rdonly |
|
61
|
0 |
0 |
$self->_rdwr ? : |
|
62
|
0 |
0 |
$self->_rdwr ? : |
|
65
|
2 |
0 |
if $mode & 2 |
|
67
|
2 |
0 |
unless defined $self->perms |
|
76
|
0 |
2 |
unless my $db = tie(%$hash, $self->_dbm_class, $filename, $self->mode, $self->perms, @{$self->_dbm_extra;}) |
|
78
|
0 |
2 |
if $self->_has_utf8 |