line |
true |
false |
branch |
63
|
0 |
0 |
if @data_list == 0 |
87
|
0 |
0 |
if $list_length == 0 |
333
|
0 |
0 |
unless (defined $parms) |
341
|
0 |
0 |
if 'ARRAY' ne ref $stringifier |
385
|
0 |
0 |
if (defined $declared_stringifier) |
394
|
0 |
0 |
unless ($module_name =~ /^(Storable|Data::Dumper)$/) |
400
|
0 |
0 |
if $@ |
404
|
0 |
0 |
unless (defined $have_stringifier) |
409
|
0 |
0 |
if ($have_stringifier eq 'Storable') { } |
|
0 |
0 |
elsif ($have_stringifier eq 'Data::Dumper') { } |
419
|
0 |
0 |
if ($dumper->can('Dumpxs')) { } |
441
|
0 |
0 |
if (not defined $declared_stringifier and 'EX' eq $db->status('-lock_mode')) |
444
|
0 |
0 |
unless (defined $database_version) |
483
|
0 |
0 |
unless ($db) |
511
|
0 |
0 |
unless ($db) |
557
|
0 |
0 |
unless ($db) |
561
|
0 |
0 |
if (not defined $index or $index eq '') |
564
|
0 |
0 |
if (not defined $group or $group eq '') |
567
|
0 |
0 |
unless (defined $key_list) |
573
|
0 |
0 |
if ($ranking < -32768 or $ranking > 32767) |
581
|
0 |
0 |
unless (defined $group_enum) |
590
|
0 |
0 |
if (defined $index_data) { } |
594
|
0 |
0 |
unless (defined $index_enum) |
612
|
0 |
0 |
unless defined $keyed_record |
616
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEYED_INDEX_LIST$key_enum", -'value', $keyed_record})) |
625
|
0 |
0 |
if ($new_keys) |
628
|
0 |
0 |
unless (defined $number_of_group_indexes) |
632
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_number_of_indexes", -'value', $number_of_group_indexes})) |
635
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEXED_KEY_LIST$index_enum", -'value', $indexed_record})) |
643
|
0 |
0 |
unless (defined $chain) |
647
|
0 |
0 |
if (defined $old_first_index_enum and $old_first_index_enum ne $NULL_ENUM) |
649
|
0 |
0 |
unless (defined $old_first_index_enum_record) |
653
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$old_first_index_enum", -'value', $old_first_index_enum_record})) |
659
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$index_enum", -'value', $first_index_enum_record})) |
662
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_first_index_enum", -'value', $index_enum})) |
708
|
0 |
0 |
unless ($db) |
712
|
0 |
0 |
if (not defined $index or $index eq '') |
715
|
0 |
0 |
if (not defined $group or $group eq '') |
718
|
0 |
0 |
unless defined $key_list |
722
|
0 |
0 |
if ($ranking < -32768 or $ranking > 32767) |
730
|
0 |
0 |
unless (defined $group_enum) |
736
|
0 |
0 |
unless (defined $update_counter) |
740
|
0 |
0 |
unless (defined $db->put({-'key', "$PRELOAD_GROUP_ENUM_DATA$group_enum$UPDATE_GROUP_COUNTER", -'value', "$update_counter"})) |
745
|
0 |
0 |
if (not defined $db->put({-'key', "$PRELOAD_GROUP_ENUM_DATA$group_enum$UPDATE_DATA$update_counter", -'value', $update_record})) |
770
|
0 |
0 |
unless ($db) |
773
|
0 |
0 |
if (not defined $group or $group eq '') |
780
|
0 |
0 |
unless (defined $original_group_enum) |
784
|
0 |
0 |
unless (defined $update_counter) |
790
|
0 |
0 |
unless ($db->delete({-'key', "$PRELOAD_GROUP_ENUM_DATA$original_group_enum$UPDATE_DATA$counter"})) |
795
|
0 |
0 |
unless ($db->delete({-'key', "$PRELOAD_GROUP_ENUM_DATA$original_group_enum$UPDATE_GROUP_COUNTER"})) |
850
|
0 |
0 |
unless (defined $parms) |
855
|
0 |
0 |
unless ($db) |
859
|
0 |
0 |
if (not defined $group or $group eq '') |
862
|
0 |
0 |
if (not defined $block_size or $block_size != int $block_size or $block_size <= 0) |
869
|
0 |
0 |
unless (defined $original_group_enum) |
881
|
0 |
0 |
unless (defined $group_enum) |
886
|
0 |
0 |
unless defined $update_counter |
896
|
0 |
0 |
unless (defined $key_list) |
902
|
0 |
0 |
if (defined $index_data) { } |
906
|
0 |
0 |
unless (defined $index_enum) |
926
|
0 |
0 |
if ($ranking < 0) { } |
934
|
0 |
0 |
if ($block_element_counter == $block_size) |
940
|
0 |
0 |
unless ($db->put({-'key', $update_sort_key, -'value', $update_sort_value})) |
949
|
0 |
0 |
if ($new_keys) |
951
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEXED_KEY_LIST$index_enum", -'value', $indexed_record})) |
960
|
0 |
0 |
unless (defined $chain) |
964
|
0 |
0 |
if (defined $old_first_index_enum and $old_first_index_enum ne $NULL_ENUM) |
966
|
0 |
0 |
unless (defined $old_first_index_enum_record) |
970
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$old_first_index_enum", -'value', $old_first_index_enum_record})) |
976
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$index_enum", -'value', $first_index_enum_record})) |
979
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_first_index_enum", -'value', $index_enum})) |
986
|
0 |
0 |
if ($block_element_counter) |
992
|
0 |
0 |
unless ($db->put({-'key', $update_sort_key, -'value', $update_sort_value})) |
1031
|
0 |
0 |
if ($running_record_pointer[$half] >= $block_data_length[$half]) |
1034
|
0 |
0 |
if ($block_offset[$half] < $block_chunk and $running_block_pointer[$half] < $block_counter) { } |
1046
|
0 |
0 |
unless (defined $block_data[0] or defined $block_data[1]) |
1051
|
0 |
0 |
if ($target_record_offset == 0) |
1054
|
0 |
0 |
if $target_size > $max_block_bytes |
1064
|
0 |
0 |
$block_data_length[0] && $block_data_length[0] > $running_record_pointer[0] ? : |
1065
|
0 |
0 |
$block_data_length[1] && $block_data_length[1] > $running_record_pointer[1] ? : |
1066
|
0 |
0 |
if ($match_data[0] ge $match_data[1]) { } |
1074
|
0 |
0 |
if ($target_record_offset >= $target_size) |
1075
|
0 |
0 |
unless ($db->put({-'key', "$PRELOAD_GROUP_ENUM_DATA$group_enum$target_blocks$target_block_counter", -'value', $target_data})) |
1082
|
0 |
0 |
if $target_size > $max_block_bytes |
1083
|
0 |
0 |
if $target_size < 0 |
1089
|
0 |
0 |
if ($target_record_offset) |
1090
|
0 |
0 |
unless ($db->put({-'key', "$PRELOAD_GROUP_ENUM_DATA$group_enum$target_blocks$target_block_counter", -'value', $target_data})) |
1109
|
0 |
0 |
unless (defined $block_data) |
1117
|
0 |
0 |
if ($key_enum ne $current_key_enum) |
1118
|
0 |
0 |
if ($current_key_enum ne $NULL_ENUM) |
1120
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEYED_INDEX_LIST$current_key_enum", -'value', $keyed_index_record})) |
1136
|
0 |
0 |
if ($n_passes) |
1143
|
0 |
0 |
if ($dirty_counter and $current_key_enum ne $NULL_ENUM) |
1145
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEYED_INDEX_LIST$current_key_enum", -'value', $keyed_index_record})) |
1221
|
0 |
0 |
unless (defined $parms) |
1227
|
0 |
0 |
unless ($db) |
1233
|
0 |
0 |
if ($use_cache) |
1236
|
0 |
0 |
if (defined $cache_dir and $cache_size > 0) |
1243
|
0 |
0 |
if $hit |
1264
|
0 |
0 |
if ($cache) |
1295
|
0 |
0 |
unless ($db) |
1299
|
0 |
0 |
unless defined $index_enum |
1301
|
0 |
0 |
unless (defined $data_record) |
1333
|
0 |
0 |
if (@_ == 1) { } |
1347
|
0 |
0 |
if (@_ == 1) { } |
1373
|
0 |
0 |
if (defined $cache_dir and $cache_size > 0) |
1397
|
0 |
0 |
unless defined $database |
1401
|
0 |
0 |
if (defined $database) |
1424
|
0 |
0 |
unless ($db) |
1428
|
0 |
0 |
if (defined $number_of_groups) |
1452
|
0 |
0 |
unless ($db) |
1456
|
0 |
0 |
if (defined $number_of_indexes) |
1480
|
0 |
0 |
unless ($db) |
1484
|
0 |
0 |
if (defined $number_of_keys) |
1509
|
0 |
0 |
unless ($db) |
1513
|
0 |
0 |
unless (defined $group_enum) |
1517
|
0 |
0 |
if (defined $number_of_indexes) |
1542
|
0 |
0 |
unless ($db) |
1546
|
0 |
0 |
unless (defined $group_enum) |
1550
|
0 |
0 |
if (defined $number_of_keys) |
1581
|
0 |
0 |
unless ($db) |
1587
|
0 |
0 |
unless (defined $group_enum) |
1591
|
0 |
0 |
if (not defined $group_enum_counter) { } |
1596
|
0 |
0 |
unless (defined $old_first_group_enum) |
1600
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum_counter}_number_of_keys", -'value', 0})) |
1603
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum_counter}_number_of_indexes", -'value', 0})) |
1606
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum_counter}_key_enum_counter", -'value', $ZERO_ENUM})) |
1609
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum_counter}_first_key_enum", -'value', $NULL_ENUM})) |
1612
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum_counter}_first_index_enum", -'value', $NULL_ENUM})) |
1615
|
0 |
0 |
unless ($db->put({-'key', "$GROUP$group", -'value', $group_enum_counter})) |
1618
|
0 |
0 |
unless ($db->put({-'key', 'group_enum_counter', -'value', $group_enum_counter})) |
1623
|
0 |
0 |
if (defined $old_first_group_enum) |
1625
|
0 |
0 |
unless (defined $old_first_group_enum_record) |
1629
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM$old_first_group_enum", -'value', $old_first_group_enum_record})) |
1634
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM$group_enum_counter", -'value', $first_group_enum_record})) |
1637
|
0 |
0 |
unless ($db->put({-'key', "${GROUP_ENUM}first_group_enum", -'value', $group_enum_counter})) |
1641
|
0 |
0 |
if (not defined $number_of_groups) { } |
1646
|
0 |
0 |
unless ($db->put({-'key', 'number_of_groups', -'value', $number_of_groups})) |
1686
|
0 |
0 |
unless (defined $data) |
1691
|
0 |
0 |
unless ($db) |
1696
|
0 |
0 |
unless (defined $index_enum) |
1700
|
0 |
0 |
if (not defined $index_enum_counter) { } |
1705
|
0 |
0 |
unless (defined $old_first_index_enum) |
1709
|
0 |
0 |
unless ($db->put({-'key', "$INDEX$index", -'value', $index_enum_counter})) |
1712
|
0 |
0 |
unless ($db->put({-'key', 'index_enum_counter', -'value', $index_enum_counter})) |
1716
|
0 |
0 |
if (defined $old_first_index_enum) |
1718
|
0 |
0 |
unless (defined $old_first_index_enum_record) |
1722
|
0 |
0 |
unless ($db->put({-'key', "$INDEX_ENUM$old_first_index_enum", -'value', $old_first_index_enum_record})) |
1728
|
0 |
0 |
unless ($db->put({-'key', "$INDEX_ENUM$index_enum_counter", -'value', $first_index_enum_record})) |
1731
|
0 |
0 |
unless ($db->put({-'key', "${INDEX_ENUM}first_index_enum", -'value', $index_enum_counter})) |
1735
|
0 |
0 |
if (not defined $number_of_indexes) { } |
1740
|
0 |
0 |
unless ($db->put({-'key', 'number_of_indexes', -'value', $number_of_indexes})) |
1749
|
0 |
0 |
unless ($db->put({-'key', "$INDEX_ENUM_DATA${index_enum}_data", -'value', $index_record})) |
1800
|
0 |
0 |
unless (defined $parms) |
1807
|
0 |
0 |
unless ($db) |
1811
|
0 |
0 |
unless (defined $group_enum) |
1815
|
0 |
0 |
unless (defined $index_enum) |
1816
|
0 |
0 |
unless (defined $data) |
1825
|
0 |
0 |
unless (defined $chain) |
1829
|
0 |
0 |
if (defined $old_first_index_enum and $old_first_index_enum ne $NULL_ENUM) |
1831
|
0 |
0 |
unless (defined $old_first_index_enum_record) |
1835
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$old_first_index_enum", -'value', $old_first_index_enum_record})) |
1842
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$index_enum", -'value', $first_index_enum_record})) |
1845
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_first_index_enum", -'value', $index_enum})) |
1851
|
0 |
0 |
unless (defined $number_of_group_indexes) |
1855
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_number_of_indexes", -'value', $number_of_group_indexes})) |
1896
|
0 |
0 |
if (@_ == 1) { } |
1902
|
0 |
0 |
unless (defined $group) |
1906
|
0 |
0 |
unless (defined $key) |
1911
|
0 |
0 |
unless (defined $db) |
1915
|
0 |
0 |
unless ($db) |
1919
|
0 |
0 |
unless (defined $group_enum) |
1923
|
0 |
0 |
unless (defined $key_enum) |
1928
|
0 |
0 |
unless (defined $key_enum_counter) |
1933
|
0 |
0 |
unless (defined $old_first_key_enum) |
1938
|
0 |
0 |
if ($old_first_key_enum ne $NULL_ENUM) |
1941
|
0 |
0 |
unless (defined $old_first_key_enum_record) |
1945
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEY_ENUM_TO_KEY_AND_CHAIN$old_first_key_enum", -'value', $old_first_key_enum_record})) |
1952
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEY_ENUM_TO_KEY_AND_CHAIN$key_enum_counter", -'value', $first_key_enum_record})) |
1956
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_first_key_enum", -'value', $key_enum_counter})) |
1962
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEY_TO_KEY_ENUM$key", -'value', $key_enum_counter})) |
1969
|
0 |
0 |
unless defined $number_of_keys_in_group |
1971
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_number_of_keys", -'value', $number_of_keys_in_group})) |
1977
|
0 |
0 |
if (not defined $number_of_keys) { } |
1982
|
0 |
0 |
unless ($db->put({-'key', 'number_of_keys', -'value', $number_of_keys})) |
1987
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_key_enum_counter", -'value', $key_enum_counter})) |
2024
|
0 |
0 |
if ($ranking > 32767 or $ranking < -32768) |
2028
|
0 |
0 |
unless ($db) |
2034
|
0 |
0 |
unless (defined $group_enum) |
2040
|
0 |
0 |
unless (defined $index_enum) |
2049
|
0 |
0 |
unless (defined $keyed_record) |
2055
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEYED_INDEX_LIST$key_enum", -'value', $keyed_record})) |
2059
|
0 |
0 |
if ($test ne $keyed_record) |
2069
|
0 |
0 |
if (not defined $indexed_record) { } |
2071
|
0 |
0 |
unless (defined $number_of_group_indexes) |
2075
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_number_of_indexes", -'value', $number_of_group_indexes})) |
2084
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEXED_KEY_LIST$index_enum", -'value', $indexed_record})) |
2089
|
0 |
0 |
if ($test ne $indexed_record) |
2095
|
0 |
0 |
unless (defined $chain) |
2099
|
0 |
0 |
if (defined $old_first_index_enum and $old_first_index_enum ne $NULL_ENUM) |
2101
|
0 |
0 |
unless (defined $old_first_index_enum_record) |
2105
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$old_first_index_enum", -'value', $old_first_index_enum_record})) |
2111
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$index_enum", -'value', $first_index_enum_record})) |
2114
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_first_index_enum", -'value', $index_enum})) |
2150
|
0 |
0 |
unless ($db) |
2156
|
0 |
0 |
unless (defined $group_enum) |
2162
|
0 |
0 |
unless (defined $first_key_enum) |
2170
|
0 |
0 |
unless (defined $key_enum_record) |
2174
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA$group_enum$KEY_ENUM_TO_KEY_AND_CHAIN$key_enum"})) |
2177
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA$group_enum$KEY_TO_KEY_ENUM$key"})) |
2183
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA${group_enum}_first_key_enum"})) |
2189
|
0 |
0 |
unless (defined $first_index_enum) |
2197
|
0 |
0 |
unless (defined $index_enum_record) |
2201
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$index_enum"})) |
2207
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA${group_enum}_first_index_enum"})) |
2213
|
0 |
0 |
unless (defined $number_of_group_keys) |
2217
|
0 |
0 |
unless defined $number_of_keys |
2219
|
0 |
0 |
unless ($db->put({-'key', 'number_of_keys', -'value', $number_of_keys})) |
2224
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA${group_enum}_number_of_keys"})) |
2227
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA${group_enum}_key_enum_counter"})) |
2230
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA${group_enum}_number_of_indexes"})) |
2236
|
0 |
0 |
unless (defined $group_record) |
2242
|
0 |
0 |
unless (defined $prev_group_enum and defined $next_group_enum) |
2247
|
0 |
0 |
if ($prev_group_enum ne $NULL_ENUM) |
2249
|
0 |
0 |
unless (defined $prev_group_record) |
2253
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM$prev_group_enum", -'value', $prev_group_record})) |
2259
|
0 |
0 |
if ($next_group_enum ne $NULL_ENUM) |
2261
|
0 |
0 |
unless (defined $next_group_record) |
2265
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM$next_group_enum", -'value', $next_group_record})) |
2272
|
0 |
0 |
unless (defined $first_group_enum) |
2275
|
0 |
0 |
if ($first_group_enum eq $group_enum) |
2276
|
0 |
0 |
unless ($db->put({-'key', "${GROUP_ENUM}first_group_enum", -'value', $next_group_enum})) |
2282
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP$group"})) |
2285
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM$group_enum"})) |
2291
|
0 |
0 |
if (not defined $number_of_groups) { } |
2296
|
0 |
0 |
unless ($db->put({-'key', 'number_of_groups', -'value', $number_of_groups})) |
2304
|
0 |
0 |
if ($number_of_groups == 0) |
2305
|
0 |
0 |
unless ($db->delete({-'key', 'group_enum_counter'})) |
2308
|
0 |
0 |
unless ($db->delete({-'key', "${GROUP_ENUM}first_group_enum"})) |
2343
|
0 |
0 |
unless ($db) |
2349
|
0 |
0 |
unless (defined $group_enum) |
2355
|
0 |
0 |
unless (defined $index_enum) |
2361
|
0 |
0 |
unless (defined $key_enum) |
2370
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEYED_INDEX_LIST$key_enum", -'value', $keyed_record})) |
2379
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEXED_KEY_LIST$index_enum", -'value', $keyed_record})) |
2414
|
0 |
0 |
unless ($db) |
2420
|
0 |
0 |
unless (defined $group_enum) |
2426
|
0 |
0 |
unless defined $index_enum |
2432
|
0 |
0 |
unless defined $index_chain_entry |
2438
|
0 |
0 |
unless defined $indexed_key_list_record |
2446
|
0 |
0 |
unless (defined $keyed_index_list_record) |
2452
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEYED_INDEX_LIST$key_enum", -'value', $keyed_index_list_record})) |
2456
|
0 |
0 |
if length $keyed_index_list_record == 0 |
2462
|
0 |
0 |
unless (defined $prev_index_enum and defined $next_index_enum) |
2467
|
0 |
0 |
if ($prev_index_enum ne $NULL_ENUM) |
2469
|
0 |
0 |
unless (defined $index_chain_entry) |
2473
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$prev_index_enum", -'value', $prev_index_chain_entry})) |
2480
|
0 |
0 |
if ($next_index_enum ne $NULL_ENUM) |
2482
|
0 |
0 |
unless (defined $index_chain_entry) |
2486
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$next_index_enum", -'value', $next_index_chain_entry})) |
2494
|
0 |
0 |
unless (defined $first_index_enum) |
2497
|
0 |
0 |
if ($first_index_enum eq $index_enum) |
2498
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_first_index_enum", -'value', $next_index_enum})) |
2505
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA$group_enum$INDEX_ENUM_GROUP_CHAIN$index_enum"})) |
2511
|
0 |
0 |
unless (defined $number_of_indexes) |
2515
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_number_of_indexes", -'value', $number_of_indexes})) |
2522
|
0 |
0 |
unless (defined $key_record) |
2560
|
0 |
0 |
unless ($db) |
2564
|
0 |
0 |
unless defined $index_enum |
2569
|
0 |
0 |
if (defined $first_group_enum) |
2573
|
0 |
0 |
unless (defined $group_record) |
2584
|
0 |
0 |
unless (defined $index_chain_entry) |
2588
|
0 |
0 |
unless (defined $prev_index_enum and defined $next_index_enum) |
2592
|
0 |
0 |
if ($prev_index_enum ne $NULL_ENUM) |
2594
|
0 |
0 |
unless (defined $prev_index_chain_entry) |
2598
|
0 |
0 |
unless ($db->put({-'key', "$INDEX_ENUM$prev_index_enum", -'value', $prev_index_chain_entry})) |
2604
|
0 |
0 |
if ($next_index_enum ne $NULL_ENUM) |
2606
|
0 |
0 |
unless (defined $next_index_chain_entry) |
2610
|
0 |
0 |
unless ($db->put({-'key', "$INDEX_ENUM$next_index_enum", -'value', $next_index_chain_entry})) |
2618
|
0 |
0 |
unless (defined $first_index_enum) |
2621
|
0 |
0 |
if ($first_index_enum eq $index_enum) |
2622
|
0 |
0 |
unless ($db->put({-'key', "${INDEX_ENUM}first_index_enum", -'value', $next_index_enum})) |
2629
|
0 |
0 |
unless ($db->delete({-'key', "$INDEX_ENUM$index_enum"})) |
2634
|
0 |
0 |
unless ($db->delete({-'key', "$INDEX$index"})) |
2639
|
0 |
0 |
unless ($db->delete({-'key', "$INDEX_ENUM_DATA${index_enum}_data"})) |
2645
|
0 |
0 |
unless (defined $number_of_indexes) |
2649
|
0 |
0 |
unless ($db->put({-'key', 'number_of_indexes', -'value', $number_of_indexes})) |
2656
|
0 |
0 |
if ($number_of_indexes == 0) |
2657
|
0 |
0 |
unless ($db->delete({-'key', "${INDEX_ENUM}first_index_enum"})) |
2660
|
0 |
0 |
unless ($db->delete({-'key', 'index_enum_counter'})) |
2663
|
0 |
0 |
unless ($db->delete({-'key', 'number_of_indexes'})) |
2699
|
0 |
0 |
unless ($db) |
2705
|
0 |
0 |
unless (defined $group_enum) |
2711
|
0 |
0 |
unless defined $key_enum |
2716
|
0 |
0 |
if (defined $keyed_index_list_record) |
2724
|
0 |
0 |
unless (defined $indexed_key_list_record) |
2730
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$INDEXED_KEY_LIST$index_enum", -'value', $indexed_key_list_record})) |
2734
|
0 |
0 |
if length $indexed_key_list_record == 0 |
2736
|
0 |
0 |
if (defined $keyed_index_list_record) |
2742
|
0 |
0 |
unless (defined $key_chain_entry) |
2746
|
0 |
0 |
unless (defined $prev_key_enum and defined $next_key_enum) |
2750
|
0 |
0 |
if ($prev_key_enum ne $NULL_ENUM) |
2752
|
0 |
0 |
unless (defined $key_chain_entry) |
2756
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEY_ENUM_TO_KEY_AND_CHAIN$prev_key_enum", -'value', $prev_key_chain_entry})) |
2762
|
0 |
0 |
if ($next_key_enum ne $NULL_ENUM) |
2764
|
0 |
0 |
unless (defined $key_chain_entry) |
2768
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA$group_enum$KEY_ENUM_TO_KEY_AND_CHAIN$next_key_enum", -'value', $next_key_chain_entry})) |
2776
|
0 |
0 |
unless (defined $first_key_enum) |
2779
|
0 |
0 |
if ($first_key_enum eq $key_enum) |
2780
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_first_key_enum", -'value', $next_key_enum})) |
2787
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA$group_enum$KEY_ENUM_TO_KEY_AND_CHAIN$key_enum"})) |
2792
|
0 |
0 |
unless ($db->delete({-'key', "$GROUP_ENUM_DATA$group_enum$KEY_TO_KEY_ENUM$key"})) |
2798
|
0 |
0 |
unless (defined $group_number_of_keys) |
2802
|
0 |
0 |
unless ($db->put({-'key', "$GROUP_ENUM_DATA${group_enum}_number_of_keys", -'value', $group_number_of_keys})) |
2808
|
0 |
0 |
unless (defined $number_of_keys) |
2812
|
0 |
0 |
unless ($db->put({-'key', 'number_of_keys', -'value', $number_of_keys})) |
2819
|
0 |
0 |
unless (defined $index_record) |
2858
|
0 |
0 |
unless ($db) |
2862
|
0 |
0 |
unless (defined $group_enum) |
2870
|
0 |
0 |
unless (defined $key_record) |
2874
|
0 |
0 |
unless (defined $key) |
2904
|
0 |
0 |
unless ($db) |
2908
|
0 |
0 |
unless (defined $group_enum) |
2913
|
0 |
0 |
if $first_key_enum eq $NULL_ENUM |
2916
|
0 |
0 |
unless (defined $key_record) |
2920
|
0 |
0 |
unless (defined $key) |
2948
|
0 |
0 |
unless ($db) |
2952
|
0 |
0 |
unless (defined $group_enum) |
2956
|
0 |
0 |
unless defined $key_enum |
2958
|
0 |
0 |
unless (defined $key_record) |
2962
|
0 |
0 |
unless (defined $this_key) |
2965
|
0 |
0 |
if $next_key_enum eq $NULL_ENUM |
2967
|
0 |
0 |
unless (defined $next_key_record) |
2971
|
0 |
0 |
unless (defined $next_key) |
3001
|
0 |
0 |
unless ($db) |
3005
|
0 |
0 |
unless (defined $group_enum) |
3010
|
0 |
0 |
if not defined $first_index_enum or $first_index_enum eq $NULL_ENUM |
3014
|
0 |
0 |
unless (defined $group_index_record) |
3018
|
0 |
0 |
unless (defined $prev_group_index_enum) |
3022
|
0 |
0 |
unless (defined $system_index_record) |
3052
|
0 |
0 |
unless ($db) |
3056
|
0 |
0 |
unless (defined $group_enum) |
3060
|
0 |
0 |
if $first_index_enum eq $NULL_ENUM |
3065
|
0 |
0 |
unless (defined $system_index_record) |
3069
|
0 |
0 |
unless defined $index |
3093
|
0 |
0 |
unless ($db) |
3097
|
0 |
0 |
unless (defined $group_enum) |
3101
|
0 |
0 |
unless defined $index_enum |
3103
|
0 |
0 |
unless defined $index_record |
3105
|
0 |
0 |
unless (defined $prev_index_enum) |
3108
|
0 |
0 |
if $next_index_enum eq $NULL_ENUM |
3110
|
0 |
0 |
unless (defined $next_index_record) |
3114
|
0 |
0 |
unless (defined $next_index) |
3144
|
0 |
0 |
unless ($db) |
3149
|
0 |
0 |
if not defined $first_index_enum or $first_index_enum eq $NULL_ENUM |
3153
|
0 |
0 |
unless (defined $index_record) |
3182
|
0 |
0 |
unless ($db) |
3187
|
0 |
0 |
if $first_index_enum eq $NULL_ENUM |
3190
|
0 |
0 |
unless (defined $index_record) |
3194
|
0 |
0 |
unless (defined $index) |
3220
|
0 |
0 |
unless ($db) |
3224
|
0 |
0 |
unless defined $index_enum |
3226
|
0 |
0 |
unless (defined $index_record) |
3230
|
0 |
0 |
unless (defined $this_index) |
3233
|
0 |
0 |
if $next_index_enum eq $NULL_ENUM |
3235
|
0 |
0 |
unless (defined $next_index_record) |
3239
|
0 |
0 |
unless (defined $next_index) |
3268
|
0 |
0 |
unless ($db) |
3273
|
0 |
0 |
if not defined $first_group_enum or $first_group_enum eq $NULL_ENUM |
3277
|
0 |
0 |
unless (defined $group_record) |
3306
|
0 |
0 |
unless ($db) |
3311
|
0 |
0 |
if $first_group_enum eq $NULL_ENUM |
3314
|
0 |
0 |
unless (defined $group_record) |
3318
|
0 |
0 |
unless (defined $group) |
3344
|
0 |
0 |
unless ($db) |
3348
|
0 |
0 |
unless defined $group_enum |
3350
|
0 |
0 |
unless (defined $group_record) |
3354
|
0 |
0 |
unless (defined $this_group) |
3357
|
0 |
0 |
if $next_group_enum eq $NULL_ENUM |
3359
|
0 |
0 |
unless (defined $next_group_record) |
3363
|
0 |
0 |
unless (defined $next_group) |
3424
|
0 |
0 |
unless (defined $parms) |
3430
|
0 |
0 |
unless ($db) |
3440
|
0 |
0 |
unless ($logic =~ /^(and|or|nand)$/) |
3446
|
0 |
0 |
if (not exists $$group_enum_cache{$group}) { } |
3451
|
0 |
0 |
unless (defined $group_enum) |
3455
|
0 |
0 |
unless (defined $key_enum) |
3460
|
0 |
0 |
unless defined $keyed_index_list_record |
3462
|
0 |
0 |
if ($weight != 1) |
3479
|
0 |
0 |
if ($logic eq 'and') { } |
|
0 |
0 |
elsif ($logic eq 'or') { } |
|
0 |
0 |
elsif ($logic eq 'nand') { } |
3488
|
0 |
0 |
if ($weight != 1) |
3511
|
0 |
0 |
unless ($db) |
3515
|
0 |
0 |
unless defined $data_record |
3533
|
0 |
0 |
if $n_terms == 0 |
3534
|
0 |
0 |
if $n_terms == 1 |
3542
|
0 |
0 |
if (exists $$term{$key}) { } |
3570
|
0 |
0 |
if $n_terms == 0 |
3571
|
0 |
0 |
if $n_terms == 1 |
3591
|
0 |
0 |
if ($count{$key} == $n_terms) |
3611
|
0 |
0 |
if $n_terms == 0 |
3612
|
0 |
0 |
if $n_terms == 1 |
3651
|
0 |
0 |
unless ($enum =~ /^([0-9a-fA-F]{4})([0-9a-fA-F]{4})([0-9a-fA-F]{4})$/) |
3657
|
0 |
0 |
if ($word2 > 65535) |
3661
|
0 |
0 |
if ($word1 > 65535) |
3681
|
0 |
0 |
if (ref $self) { } |