[Pkg-privacy-commits] [msva-perl] 316/356: Some initial documentation for constructors.

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch debian
in repository msva-perl.

commit 9a58403e6cef8ee6d310d57e348696e139f0ac2b
Author: David Bremner <bremner at unb.ca>
Date:   Sat Mar 19 10:15:25 2011 -0300

    Some initial documentation for constructors.
    
    Document the arguments, tersely.
---
 Crypt/Monkeysphere/Keyserver.pm | 15 +++++++++++++++
 Crypt/Monkeysphere/Validator.pm | 22 ++++++++++++++++++++++
 2 files changed, 37 insertions(+)

diff --git a/Crypt/Monkeysphere/Keyserver.pm b/Crypt/Monkeysphere/Keyserver.pm
index c53869a..9d49bd9 100644
--- a/Crypt/Monkeysphere/Keyserver.pm
+++ b/Crypt/Monkeysphere/Keyserver.pm
@@ -14,6 +14,21 @@ use Crypt::Monkeysphere::Util qw(untaint);
 
 our $default_keyserver='hkp://pool.sks-keyservers.net';
 
+=pod 
+
+=head2 new
+
+Create a new Crypt::Monkeysphere::Keyserver instance
+
+Arguments
+  Param hash, all optional.
+
+     keyserver => URL
+     gnupg => GnuPG::Interface object
+
+  (plus arguments for Crypt::Monkeysphere::Logger::new)
+
+=cut
 sub new {
   my $class=shift;
   my %opts=@_;
diff --git a/Crypt/Monkeysphere/Validator.pm b/Crypt/Monkeysphere/Validator.pm
index b470349..dacea6d 100644
--- a/Crypt/Monkeysphere/Validator.pm
+++ b/Crypt/Monkeysphere/Validator.pm
@@ -5,6 +5,28 @@ use warnings;
 
 use parent 'Crypt::Monkeysphere::Keyserver';
 
+=pod
+
+=head2 new
+
+Create a new Crypt::Monkeysphere::Validator instance
+
+Arguments
+  
+     Param hash, all optional.
+
+     findall => 0|1   return all suitable keys, rather than first suitable
+
+     context => 'e-mail' | something else. 
+			control what counts as a suitable key.
+
+     kspolicy => 'always|never|unlessvalid'   
+			when to fetch keys from keyserver.
+
+  (plus arguments for Crypt::Monkeysphere::{Keyserver,Logger}::new )
+
+=cut
+
 sub new {
   my $class=shift;
   my %opts=@_;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-privacy/packages/msva-perl.git