line |
true |
false |
branch |
45
|
1 |
0 |
unless defined $args{-'db'} |
46
|
1 |
0 |
unless defined $args{-'serializer'} |
47
|
1 |
0 |
unless defined $args{-'locking'} |
48
|
1 |
0 |
unless defined $args{-'readonly'} |
49
|
1 |
0 |
unless defined $args{-'writeonly'} |
52
|
0 |
1 |
if ($args{-'readonly'}) { } |
|
0 |
1 |
elsif ($args{-'writeonly'}) { } |
60
|
0 |
1 |
$args{-'db'} eq 'Tie::TextDir' ? : |
62
|
1 |
0 |
if ($args{-'db'} eq 'DB_File') { } |
65
|
0 |
0 |
if ($args{-'locking'}) { } |
67
|
0 |
0 |
$args{-'readonly'} ? : |
77
|
0 |
0 |
unless tie %{$$self{'DB'};}, 'MLDBM', $file, @tie_args |
85
|
0 |
0 |
unless (defined $db_info) |
89
|
0 |
0 |
if ($db_info) |
95
|
0 |
0 |
unless ($args{-'readonly'}) |
106
|
0 |
0 |
if ($args[$i] =~ /^-/) |
114
|
0 |
0 |
if (UNIVERSAL::isa($args[0], 'WE::GlossaryObj')) { } |
122
|
0 |
0 |
if (exists $$self{'DB'}{$obj->Keyword}) |
123
|
0 |
0 |
unless ($args{-'force'}) |
145
|
0 |
0 |
unless $obj |
153
|
0 |
0 |
if $k =~ /^__/ |
154
|
0 |
0 |
if $filter and not &$filter($k) |