Version 0.903

[chaz/p5-File-KDBX] / README

diff --git a/README b/README
index ec6508e533074da94cef2083aa26c75a1028c4e5..fac5d25a662ab65776f4002c01328597d7f80d43 100644 (file)
--- a/README
+++ b/README
@@ -4,7 +4,7 @@ NAME
 
 VERSION
 
-    version 0.902
+    version 0.903
 
 SYNOPSIS
 
@@ -24,14 +24,13 @@ SYNOPSIS
         );
     
         # Save the database to the filesystem
-        $kdbx->dump_file('passwords.kdbx', 'M@st3rP@ssw0rd!');
+        $kdbx->dump_file('passwords.kdbx', 'masterpw changeme');
     
         # Load the database from the filesystem into a new database instance
-        my $kdbx2 = File::KDBX->load_file('passwords.kdbx', 'M@st3rP@ssw0rd!');
+        my $kdbx2 = File::KDBX->load_file('passwords.kdbx', 'masterpw changeme');
     
         # Iterate over database entries, print entry titles
-        $kdbx2->entries->each(sub {
-            my ($entry) = @_;
+        $kdbx2->entries->each(sub($entry, @) {
             say 'Entry: ', $entry->title;
         });
 
@@ -999,8 +998,7 @@ RECIPES
         my $kdbx = File::KDBX->load_file('mypasswords.kdbx', 'master password CHANGEME');
         $kdbx->unlock;  # cause $entry->password below to be defined
     
-        $kdbx->entries->each(sub {
-            my ($entry) = @_;
+        $kdbx->entries->each(sub($entry, @) {
             say 'Found password for: ', $entry->title;
             say '  Username: ', $entry->username;
             say '  Password: ', $entry->password;