# 2. List it in the pod at the bottom of this file in the section corresponding to its tag.
# 3. There is no step three.
+use 5.010;
use warnings;
use strict;
use Exporter qw(import);
+use File::KDBX::Util qw(int64);
use Scalar::Util qw(dualvar);
use namespace::clean -except => 'import';
},
history => {
__prefix => 'HISTORY',
+ DEFAULT_MAX_AGE => 365,
DEFAULT_MAX_ITEMS => 10,
- DEFAULT_MAX_SIZE => 6_291_456, # 6 M
+ DEFAULT_MAX_SIZE => 6_291_456, # 6 MiB
+ },
+ iteration => {
+ ITERATION_BFS => dualvar(1, 'bfs'),
+ ITERATION_DFS => dualvar(2, 'dfs'),
+ ITERATION_IDS => dualvar(3, 'ids'),
},
icon => {
__prefix => 'ICON',
},
time => {
__prefix => 'TIME',
- SECONDS_AD1_TO_UNIX_EPOCH => 62_135_596_800,
+ SECONDS_AD1_TO_UNIX_EPOCH => int64('62135596800'),
},
yubikey => {
YUBICO_VID => dualvar( 0x1050, 'Yubico'),
) {
$HEADER{$header} = $HEADER{0+$header} = $header;
}
-sub to_header_constant { $HEADER{$_[0]} }
+sub to_header_constant { $HEADER{$_[0] // ''} }
my %COMPRESSION;
for my $compression (COMPRESSION_NONE, COMPRESSION_GZIP) {
$COMPRESSION{$compression} = $COMPRESSION{0+$compression} = $compression;
}
-sub to_compression_constant { $COMPRESSION{$_[0]} }
+sub to_compression_constant { $COMPRESSION{$_[0] // ''} }
my %INNER_HEADER;
for my $inner_header (
) {
$INNER_HEADER{$inner_header} = $INNER_HEADER{0+$inner_header} = $inner_header;
}
-sub to_inner_header_constant { $INNER_HEADER{$_[0]} }
+sub to_inner_header_constant { $INNER_HEADER{$_[0] // ''} }
my %ICON;
for my $icon (
=head2 :cipher
-Constants related ciphers:
+Constants related to ciphers:
=for :list
= C<CIPHER_UUID_AES128>
Constants for history-related default values:
=for :list
+= C<HISTORY_DEFAULT_MAX_AGE>
= C<HISTORY_DEFAULT_MAX_ITEMS>
= C<HISTORY_DEFAULT_MAX_SIZE>
+=head2 :iteration
+
+Constants for searching algorithms.
+
+=for :list
+= C<ITERATION_IDS> - Iterative deepening search
+= C<ITERATION_BFS> - Breadth-first search
+= C<ITERATION_DFS> - Depth-first search
+
=head2 :icon
Constants for default icons used by KeePass password safe implementations: