[catagits/Reaction.git] / lib / Reaction / Types / Core.pm

package Reaction::Types::Core;

use MooseX::Types
    -declare => [qw/SimpleStr NonEmptySimpleStr Password StrongPassword
                    NonEmptyStr PositiveNum PositiveInt SingleDigit/];

use MooseX::Types::Moose qw/Str Num Int/;

subtype 'SimpleStr'
  => as 'Str'
  => where { (length($_) <= 255) && ($_ !~ m/\n/) }
  => message { "Must be a single line of no more than 255 chars" };

subtype 'NonEmptySimpleStr'
  => as 'SimpleStr'
  => where { length($_) > 0 }
  => message { "Must be a non-empty single line of no more than 255 chars" };

# XXX duplicating constraint msges since moose only uses last message

subtype 'Password'
  => as 'NonEmptySimpleStr'
  => where { length($_) > 3 }
  => message { "Must be between 4 and 255 chars" };

subtype 'StrongPassword'
  => as 'Password'
  => where { (length($_) > 7) && (m/[^a-zA-Z]/) }
  => message {
       "Must be between 8 and 255 chars, and contain a non-alpha char" };

subtype 'NonEmptyStr'
  => as 'Str'
  => where { length($_) > 0 }
  => message { "Must not be empty" };

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 'SingleDigit'
  => as 'PositiveInt'
  => where { $_ <= 9 }
  => message { "Must be a single digit" };

1;

=head1 NAME

Reaction::Types::Core

=head1 SYNOPSIS

=head1 DESCRIPTION

Reaction uses the L<Moose> attributes as a base and adds a few of it's own.

=over 

=item * SimpleStr

A Str with no new-line characters.

=item * NonEmptySimpleStr

Does what it says on the tin.

=item * Password

=item * StrongPassword

=item * NonEmptyStr

=item * PositiveNum

=item * PositiveInt

=item * SingleDigit

=back

=head1 SEE ALSO

=over 

=item * L<Moose::Util::TypeConstraints>

=item * L<Reaction::Types::DBIC>

=item * L<Reaction::Types::DateTime>

=item * L<Reaction::Types::Email>

=item * L<Reaction::Types::File>

=back

=head1 AUTHORS

See L<Reaction::Class> for authors.

=head1 LICENSE

See L<Reaction::Class> for the license.

=cut
Commit	Line	Data
7adfd53f	1	package Reaction::Types::Core;
7adfd53f	2
e739c9a2	3	use MooseX::Types
	4	-declare => [qw/SimpleStr NonEmptySimpleStr Password StrongPassword
	5	NonEmptyStr PositiveNum PositiveInt SingleDigit/];
	6
	7	use MooseX::Types::Moose qw/Str Num Int/;
7adfd53f	8
	9	subtype 'SimpleStr'
	10	=> as 'Str'
	11	=> where { (length($_) <= 255) && ($_ !~ m/\n/) }
	12	=> message { "Must be a single line of no more than 255 chars" };
	13
	14	subtype 'NonEmptySimpleStr'
	15	=> as 'SimpleStr'
	16	=> where { length($_) > 0 }
	17	=> message { "Must be a non-empty single line of no more than 255 chars" };
	18
	19	# XXX duplicating constraint msges since moose only uses last message
	20
	21	subtype 'Password'
	22	=> as 'NonEmptySimpleStr'
	23	=> where { length($_) > 3 }
	24	=> message { "Must be between 4 and 255 chars" };
	25
	26	subtype 'StrongPassword'
	27	=> as 'Password'
	28	=> where { (length($_) > 7) && (m/[^a-zA-Z]/) }
e739c9a2	29	=> message {
e739c9a2	30	"Must be between 8 and 255 chars, and contain a non-alpha char" };
7adfd53f	31
	32	subtype 'NonEmptyStr'
	33	=> as 'Str'
	34	=> where { length($_) > 0 }
	35	=> message { "Must not be empty" };
	36
	37	subtype 'PositiveNum'
	38	=> as 'Num'
	39	=> where { $_ >= 0 }
	40	=> message { "Must be a positive number" };
	41
	42	subtype 'PositiveInt'
	43	=> as 'Int'
	44	=> where { $_ >= 0 }
	45	=> message { "Must be a positive integer" };
	46
	47	subtype 'SingleDigit'
	48	=> as 'PositiveInt'
	49	=> where { $_ <= 9 }
	50	=> message { "Must be a single digit" };
	51
	52	1;
	53
	54	=head1 NAME
	55
	56	Reaction::Types::Core
	57
	58	=head1 SYNOPSIS
	59
	60	=head1 DESCRIPTION
	61
	62	Reaction uses the L<Moose> attributes as a base and adds a few of it's own.
	63
	64	=over
	65
	66	=item * SimpleStr
	67
	68	A Str with no new-line characters.
	69
	70	=item * NonEmptySimpleStr
	71
	72	Does what it says on the tin.
	73
	74	=item * Password
	75
	76	=item * StrongPassword
	77
	78	=item * NonEmptyStr
	79
	80	=item * PositiveNum
	81
	82	=item * PositiveInt
	83
	84	=item * SingleDigit
	85
	86	=back
	87
	88	=head1 SEE ALSO
	89
	90	=over
	91
	92	=item * L<Moose::Util::TypeConstraints>
	93
	94	=item * L<Reaction::Types::DBIC>
95
96	=item * L<Reaction::Types::DateTime>
97
98	=item * L<Reaction::Types::Email>
99
100	=item * L<Reaction::Types::File>
101
102	=back
103
104	=head1 AUTHORS
105
106	See L<Reaction::Class> for authors.
107
108	=head1 LICENSE
109
110	See L<Reaction::Class> for the license.
111
112	=cut