| 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) |