use File::KDBX::Constants qw(:magic);
use File::KDBX::Error;
use File::KDBX::Loader::KDB;
-use File::KDBX::Util qw(:uuid load_optional);
+use File::KDBX::Util qw(:class :uuid load_optional);
use namespace::clean;
-use parent 'File::KDBX::Dumper';
+extends 'File::KDBX::Dumper';
our $VERSION = '999.999'; # VERSION
my $k = File::KeePass::KDBX->new($self->kdbx)->to_fkp;
$self->_write_custom_icons($self->kdbx, $k);
- # TODO create a KPX_CUSTOM_ICONS_4 meta stream. FKP itself handles KPX_GROUP_TREE_STATE
-
substr($k->header->{seed_rand}, 16) = '';
$key = $self->kdbx->composite_key($key, keep_primitive => 1);
my %groups; # id -> index
my %gid;
- for my $uuid (sort keys %{$kdbx->custom_icons}) {
- my $icon = $kdbx->custom_icons->{$uuid};
+ for my $icon (@{$kdbx->custom_icons}) {
+ my $uuid = $icon->{uuid};
my $data = $icon->{data} or next;
push @icons, $data;
$icons{$uuid} = $#icons;