Changeset 11301 for lang/perl/Acme-CPANAuthors

Timestamp:

05/09/08 21:33:18 (7 months ago)

Author:

charsbar

Message:

Acme-CPANAuthors: added an example as I couldn't remember the internals

Files:

• lang/perl/Acme-CPANAuthors/trunk/lib/Acme/CPANAuthors/Utils/Kwalitee.pm (modified) (1 diff)

lang/perl/Acme-CPANAuthors/trunk/lib/Acme/CPANAuthors/Utils/Kwalitee.pm

@@ -63 +63 @@
     my $info = Acme::CPANAuthors::Utils::Kwalitee->fetch('ISHIGAKI');
 
+    # then, $info will have keys/values like this
+    # (though this may change without notices)
+
+    {
+      info => {
+        Average_Kwalitee => "144.333",
+        CPANTS_Game_Kwalitee => "98.833",
+        Email => "ishigaki\@cpan.org",
+        Liga => "5 or more",
+        Rank => 47,
+      },
+      distributions => {
+        "Acme-CPANAuthors" => {
+          details  => { "use_strict" => "ok", ... },
+          kwalitee => "144.000",
+        },
+        ...
+      },
+    }
+
 =head1 DESCRIPTION