Add iterator

[chaz/p5-File-KDBX] / t / kdbx3.t

diff --git a/t/kdbx3.t b/t/kdbx3.t
index 847712d608db91a7e00c5f9255a253936f9a874d..5fe53f7b820026fdc60ba1b9cf538bc49f0d6ac4 100644 (file)
--- a/t/kdbx3.t
+++ b/t/kdbx3.t
@@ -107,7 +107,7 @@ subtest 'Verify ProtectedStrings' => sub {
 
     $kdbx->unlock;
 
-    my ($entry) = @{$kdbx->all_entries};
+    my $entry = $kdbx->entries->next;
     is $entry->title, 'Sample Entry', 'Get entry title';
     is $entry->username, 'Protected User Name', 'Get protected username from entry';
     is $entry->password, 'ProtectedPassword', 'Get protected password from entry';