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