restructuring

[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
new file mode 100644 (file)
index 0000000..17127a2
--- /dev/null
+++ b/lib/MooseX/Types/Common/Numeric.pm
@@ -0,0 +1,89 @@
+package MooseX::Types::Common::Numeric;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.001000';
+
+use MooseX::Types -declare => [
+  qw(PositiveNum PositiveInt NegativeNum NegativeInt SingleDigit)
+];
+
+use MooseX::Types::Moose qw/Num Int/;
+
+subtype PositiveNum,
+  as Num,
+  where { $_ >= 0 },
+  message { "Must be a positive number" };
+
+subtype PositiveInt,
+  as Int,
+  where { $_ >= 0 },
+  message { "Must be a positive integer" };
+
+subtype NegativeNum,
+  as Num,
+  where { $_ <= 0 },
+  message { "Must be a negative number" };
+
+subtype NegativeInt,
+  as Int,
+  where { $_ <= 0 },
+  message { "Must be a negative integer" };
+
+subtype SingleDigit,
+  as PositiveInt,
+  where { $_ <= 9 },
+  message { "Must be a single digit" };
+
+
+1;
+
+__END__;
+
+
+=head1 NAME
+
+MooseX::Types::Common::Numeric
+
+=head1 SYNOPSIS
+
+    use MooseX::Types::Common::Numeric qw/PositiveInt/;
+    has count => (is => 'rw', isa => PositiveInt);
+
+    ...
+    #this will fail
+    $object->count(-33);
+
+=head1 DESCRIPTION
+
+A set of commonly-used numeric type constraints that do not ship with Moose by
+default.
+
+=over
+
+=item * PositiveNum
+
+=item * PositiveInt
+
+=item * NegativeNum
+
+=item * Int
+
+=item * SingleDigit
+
+=back
+
+=head1 SEE ALSO
+
+=over
+
+=item * L<MooseX::Types::Common::String>
+
+=back
+
+=head1 AUTHORS
+
+Please see:: L<MooseX::Types::Common>
+
+=cut