1 package MooseX::Types::Common::Numeric;
6 our $VERSION = '0.001000';
8 use MooseX::Types -declare => [
9 qw(PositiveNum PositiveInt NegativeNum NegativeInt SingleDigit)
12 use MooseX::Types::Moose qw/Num Int/;
17 message { "Must be a positive number" };
22 message { "Must be a positive integer" };
27 message { "Must be a negative number" };
32 message { "Must be a negative integer" };
37 message { "Must be a single digit" };
47 MooseX::Types::Common::Numeric
51 use MooseX::Types::Common::Numeric qw/PositiveInt/;
52 has count => (is => 'rw', isa => PositiveInt);
60 A set of commonly-used numeric type constraints that do not ship with Moose by
81 =item * L<MooseX::Types::Common::String>
87 Please see:: L<MooseX::Types::Common>