diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-09-12 18:11:34 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-09-12 18:11:34 +0000 |
commit | 7adfd53f17f66ffe93763e944ed1d3fc52a369dc (patch) | |
tree | 19e599e74419b41cbbe651fd226b81e8b73551d3 /lib/Reaction/Types | |
parent | c728c97cb1061330e63c7cc048e768ef74988fe6 (diff) | |
download | reaction-7adfd53f17f66ffe93763e944ed1d3fc52a369dc.tar.gz reaction-7adfd53f17f66ffe93763e944ed1d3fc52a369dc.zip |
moved shit to trunk
Diffstat (limited to 'lib/Reaction/Types')
-rw-r--r-- | lib/Reaction/Types/Core.pm | 107 | ||||
-rw-r--r-- | lib/Reaction/Types/DBIC.pm | 50 | ||||
-rw-r--r-- | lib/Reaction/Types/DateTime.pm | 55 | ||||
-rw-r--r-- | lib/Reaction/Types/Email.pm | 41 | ||||
-rw-r--r-- | lib/Reaction/Types/File.pm | 42 |
5 files changed, 295 insertions, 0 deletions
diff --git a/lib/Reaction/Types/Core.pm b/lib/Reaction/Types/Core.pm new file mode 100644 index 0000000..cb904a3 --- /dev/null +++ b/lib/Reaction/Types/Core.pm @@ -0,0 +1,107 @@ +package Reaction::Types::Core; + +use Moose::Util::TypeConstraints; + +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 diff --git a/lib/Reaction/Types/DBIC.pm b/lib/Reaction/Types/DBIC.pm new file mode 100644 index 0000000..279e191 --- /dev/null +++ b/lib/Reaction/Types/DBIC.pm @@ -0,0 +1,50 @@ +package Reaction::Types::DBIC; + +use Moose::Util::TypeConstraints; + +use DBIx::Class::ResultSet; + +subtype 'DBIx::Class::ResultSet' + => as 'Object' + => where { $_->isa('DBIx::Class::ResultSet') }; + +use DBIx::Class::Core; +use DBIx::Class::Row; + +subtype 'DBIx::Class::Row' + => as 'Object' + => where { $_->isa('DBIx::Class::Row') }; + +1; + +=head1 NAME + +Reaction::Types::DBIC + +=head1 DESCRIPTION + +=over + +=item * DBIx::Class::ResultSet + +=item * DBIx::Class::Row + +=back + +=head1 SEE ALSO + +=over + +=item * L<Reaction::Types::Core> + +=back + +=head1 AUTHORS + +See L<Reaction::Class> for authors. + +=head1 LICENSE + +See L<Reaction::Class> for the license. + +=cut diff --git a/lib/Reaction/Types/DateTime.pm b/lib/Reaction/Types/DateTime.pm new file mode 100644 index 0000000..60fbabd --- /dev/null +++ b/lib/Reaction/Types/DateTime.pm @@ -0,0 +1,55 @@ +package Reaction::Types::DateTime; + +use Moose::Util::TypeConstraints; + +use DateTime; + +subtype 'DateTime' + => as 'Object' + => where { $_->isa('DateTime') } + => message { "Must be of the form YYYY-MM-DD HH:MM:SS" }; + +use DateTime::SpanSet; + +subtype 'DateTime::SpanSet' + => as 'Object' + => where { $_->isa('DateTime::SpanSet') }; + +subtype 'TimeRangeCollection' + => as 'ArrayRef'; + +1; + +=head1 NAME + +Reaction::Types::DateTime + +=head1 DESCRIPTION + +=over + +=item * DateTime + +=item * DateTime::SpanSet + +=item * TimeRangeCollection + +=back + +=head1 SEE ALSO + +=over + +=item * L<Reaction::Types::Core> + +=back + +=head1 AUTHORS + +See L<Reaction::Class> for authors. + +=head1 LICENSE + +See L<Reaction::Class> for the license. + +=cut diff --git a/lib/Reaction/Types/Email.pm b/lib/Reaction/Types/Email.pm new file mode 100644 index 0000000..0bf9adc --- /dev/null +++ b/lib/Reaction/Types/Email.pm @@ -0,0 +1,41 @@ +package Reaction::Types::Email; + +use Moose::Util::TypeConstraints; +use Email::Valid; + +subtype 'EmailAddress' + => as 'NonEmptySimpleStr' + => where { Email::Valid->address($_) } + => message { "Must be a valid e-mail address" }; + +1; + +=head1 NAME + +Reaction::Types::Email + +=head1 DESCRIPTION + +=over + +=item * EmailAddress + +=back + +=head1 SEE ALSO + +=over + +=item * L<Reaction::Types::Core> + +=back + +=head1 AUTHORS + +See L<Reaction::Class> for authors. + +=head1 LICENSE + +See L<Reaction::Class> for the license. + +=cut diff --git a/lib/Reaction/Types/File.pm b/lib/Reaction/Types/File.pm new file mode 100644 index 0000000..dc17e36 --- /dev/null +++ b/lib/Reaction/Types/File.pm @@ -0,0 +1,42 @@ +package Reaction::Types::File; + +use Moose::Util::TypeConstraints; + +use Catalyst::Request::Upload; + +subtype 'File' + => as 'Object' + => where { $_->isa('Catalyst::Request::Upload') } + => message { "Must be a file" }; + +1; + +=head1 NAME + +Reaction::Types::File + +=head1 DESCRIPTION + +=over + +=item * File + +=back + +=head1 SEE ALSO + +=over + +=item * L<Reaction::Types::Core> + +=back + +=head1 AUTHORS + +See L<Reaction::Class> for authors. + +=head1 LICENSE + +See L<Reaction::Class> for the license. + +=cut |