SingleDigit now accepts [-9 .. 9] not [1 .. 9]

[gitmo/MooseX-Types-Common.git] / lib / MooseX / Types / Common / Numeric.pm

diff --git a/lib/MooseX/Types/Common/Numeric.pm b/lib/MooseX/Types/Common/Numeric.pm
index c195a68..30e580b 100644 (file)
--- a/lib/MooseX/Types/Common/Numeric.pm
+++ b/lib/MooseX/Types/Common/Numeric.pm
@@ -1,10 +1,9 @@
 package MooseX::Types::Common::Numeric;
+# ABSTRACT: Commonly used numeric types
 
 use strict;
 use warnings;
 
-our $VERSION = '0.001008';
-
 use MooseX::Types -declare => [
   qw(PositiveNum PositiveOrZeroNum
      PositiveInt PositiveOrZeroInt
@@ -112,24 +111,22 @@ subtype NegativeOrZeroInt,
     );
 
 subtype SingleDigit,
-  as PositiveInt,
-  where { $_ <= 9 },
+  as Int,
+  where { $_ >= -9 and $_ <= 9 },
   message { "Must be a single digit" },
     ( $Moose::VERSION >= 2.0200
         ? inline_as {
             $_[0]->parent()->_inline_check( $_[1] ) . ' && '
-                . qq{ ($_[1] <= 9) };
+                . qq{ ($_[1] >= -9 and $_[1] <= 9) };
         }
         : ()
     );
 
 1;
 
-__END__;
-
-=head1 NAME
+__END__
 
-MooseX::Types::Common::Numeric - Commonly used numeric types
+=pod
 
 =head1 SYNOPSIS
 
@@ -147,23 +144,23 @@ default.
 
 =over
 
-=item * PositiveNum
+=item * C<PositiveNum>
 
-=item * PositiveOrZeroNum
+=item * C<PositiveOrZeroNum>
 
-=item * PositiveInt
+=item * C<PositiveInt>
 
-=item * PositiveOrZeroInt
+=item * C<PositiveOrZeroInt>
 
-=item * NegativeNum
+=item * C<NegativeNum>
 
-=item * NegativeOrZeroNum
+=item * C<NegativeOrZeroNum>
 
-=item * NegativeInt
+=item * C<NegativeInt>
 
-=item * NegativeOrZeroInt
+=item * C<NegativeOrZeroInt>
 
-=item * SingleDigit
+=item * C<SingleDigit>
 
 =back
 
@@ -175,8 +172,4 @@ default.
 
 =back
 
-=head1 AUTHORS
-
-Please see:: L<MooseX::Types::Common>
-
 =cut