subtest 'Construction' => sub {
my $entry = File::KDBX::Entry->new(my $data = {username => 'foo'});
is $entry, $data, 'Provided data structure becomes the object';
subtest 'Construction' => sub {
my $entry = File::KDBX::Entry->new(my $data = {username => 'foo'});
is $entry, $data, 'Provided data structure becomes the object';