r13828 - in /trunk/libmoosex-getopt-perl: ChangeLog META.yml debian/changelog lib/MooseX/Getopt.pm

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Tue Jan 29 16:20:20 2008
New Revision: 13828

URL: http://svn.debian.org/wsvn/?sc=1&rev=13828
Log:
New upstream release.

Modified:
    trunk/libmoosex-getopt-perl/ChangeLog
    trunk/libmoosex-getopt-perl/META.yml
    trunk/libmoosex-getopt-perl/debian/changelog
    trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm

Modified: trunk/libmoosex-getopt-perl/ChangeLog
URL: http://svn.debian.org/wsvn/trunk/libmoosex-getopt-perl/ChangeLog?rev=13828&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/ChangeLog (original)
+++ trunk/libmoosex-getopt-perl/ChangeLog Tue Jan 29 16:20:20 2008
@@ -1,4 +1,10 @@
 Revision history for Perl extension MooseX-Getopt
+
+0.11 Sun. Jan. 27, 2008
+    * MooseX::Getopt
+        - Commandline option shouldn't be required in the
+          case that the given "required" attribute has
+          a default or a builder method.
 
 0.10 Wed. Jan. 23, 2008
     * MooseX::Getopt

Modified: trunk/libmoosex-getopt-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libmoosex-getopt-perl/META.yml?rev=13828&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/META.yml (original)
+++ trunk/libmoosex-getopt-perl/META.yml Tue Jan 29 16:20:20 2008
@@ -1,6 +1,6 @@
 ---
 name: MooseX-Getopt
-version: 0.10
+version: 0.11
 author:
   - 'Stevan Little E<lt>stevan at iinteractive.comE<gt>'
   - 'Brandon L. Black, E<lt>blblack at gmail.comE<gt>'
@@ -17,7 +17,7 @@
 provides:
   MooseX::Getopt:
     file: lib/MooseX/Getopt.pm
-    version: 0.10
+    version: 0.11
   MooseX::Getopt::Meta::Attribute:
     file: lib/MooseX/Getopt/Meta/Attribute.pm
     version: 0.04

Modified: trunk/libmoosex-getopt-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libmoosex-getopt-perl/debian/changelog?rev=13828&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/debian/changelog (original)
+++ trunk/libmoosex-getopt-perl/debian/changelog Tue Jan 29 16:20:20 2008
@@ -1,3 +1,9 @@
+libmoosex-getopt-perl (0.11-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Tue, 29 Jan 2008 17:19:36 +0100
+
 libmoosex-getopt-perl (0.10-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm
URL: http://svn.debian.org/wsvn/trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm?rev=13828&op=diff
==============================================================================
--- trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm (original)
+++ trunk/libmoosex-getopt-perl/lib/MooseX/Getopt.pm Tue Jan 29 16:20:20 2008
@@ -9,7 +9,7 @@
 use Getopt::Long (); # GLD uses it anyway, doesn't hurt
 use constant HAVE_GLD => not not eval { require Getopt::Long::Descriptive };
 
-our $VERSION   = '0.10';
+our $VERSION   = '0.11';
 our $AUTHORITY = 'cpan:STEVAN';
 
 has ARGV       => (is => 'rw', isa => 'ArrayRef', metaclass => "NoGetopt");
@@ -175,7 +175,7 @@
             name       => $name,
             init_arg   => $attr->init_arg,
             opt_string => $opt_string,
-            required   => $attr->is_required,
+            required   => $attr->is_required && !$attr->has_default && !$attr->has_builder,
             ( ( $attr->has_default && ( $attr->is_default_a_coderef xor $attr->is_lazy ) ) ? ( default => $attr->default({}) ) : () ),
             ( $attr->has_documentation ? ( doc => $attr->documentation ) : () ),
         }