From c54ab65fcac3f435e9e04ceb5264b75358780199 Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@gmail.com>
Date: Thu, 22 Jan 2009 16:54:20 +0100
Subject: [PATCH] pod update, constructor now private

---
 lib/App/CPAN2Pkg/Module.pm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/lib/App/CPAN2Pkg/Module.pm b/lib/App/CPAN2Pkg/Module.pm
index 9c785dd..bbba3dc 100644
--- a/lib/App/CPAN2Pkg/Module.pm
+++ b/lib/App/CPAN2Pkg/Module.pm
@@ -13,7 +13,7 @@ use strict;
 use warnings;
 
 use Class::XSAccessor
-    constructor => 'new',
+    constructor => '_new',
     accessors   => {
         name      => 'name',
         shortname => 'shortname',
@@ -71,7 +71,7 @@ sub spawn {
     my $short = $module;
     $short =~ s/::/:/g;
     $short =~ s/[[:lower:]]//g;
-    my $obj = App::CPAN2Pkg::Module->new(
+    my $obj = App::CPAN2Pkg::Module->_new(
         name      => $module,
         shortname => $short,
         _wheels    => {},
@@ -226,16 +226,14 @@ Start looking for any other module needed by current module.
 =head1 METHODS
 
 This package is also a class, used B<internally> to store private data
-needed for the packaging stuff. The following methods are therefore
+needed for the packaging stuff. The following accessors are therefore
 available, but should not be used directly:
 
 =over 4
 
-=item new()
+=item name() - the module name
 
-=item name()
-
-=item shortname()
+=item shortname() - the module shortname (only capital letters)
 
 =back
 
-- 
2.11.4.GIT