Add function for creating class attributes

[chaz/p5-File-KDBX] / lib / File / KDBX / KDF.pm

diff --git a/lib/File/KDBX/KDF.pm b/lib/File/KDBX/KDF.pm
index c447cc0fe242b92f819900e70f7b78f16d5260fe..ce32945361ad81ea6114421932b5a1d9e7b19e44 100644 (file)
--- a/lib/File/KDBX/KDF.pm
+++ b/lib/File/KDBX/KDF.pm
@@ -39,6 +39,14 @@ sub new {
     return $self->init(%args, %registration_args);
 }
 
+=method init
+
+    $kdf = $kdf->init(%attributes);
+
+Called by method to set attributes. You normally shouldn't call this.
+
+=cut
+
 sub init {
     my $self = shift;
     my %args = @_;
@@ -66,7 +74,7 @@ Get the seed (or salt, depending on the function).
 
 =cut
 
-sub seed { die "Not implemented" }
+sub seed { die 'Not implemented' }
 
 =method transform
 
@@ -95,7 +103,7 @@ sub transform {
     return $self->_transform($key);
 }
 
-sub _transform { die "Not implemented" }
+sub _transform { die 'Not implemented' }
 
 =method randomize_seed