aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/Types
diff options
context:
space:
mode:
authormatthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2007-09-12 18:11:34 +0000
committermatthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2007-09-12 18:11:34 +0000
commit7adfd53f17f66ffe93763e944ed1d3fc52a369dc (patch)
tree19e599e74419b41cbbe651fd226b81e8b73551d3 /lib/Reaction/Types
parentc728c97cb1061330e63c7cc048e768ef74988fe6 (diff)
downloadreaction-7adfd53f17f66ffe93763e944ed1d3fc52a369dc.tar.gz
reaction-7adfd53f17f66ffe93763e944ed1d3fc52a369dc.zip
moved shit to trunk
Diffstat (limited to 'lib/Reaction/Types')
-rw-r--r--lib/Reaction/Types/Core.pm107
-rw-r--r--lib/Reaction/Types/DBIC.pm50
-rw-r--r--lib/Reaction/Types/DateTime.pm55
-rw-r--r--lib/Reaction/Types/Email.pm41
-rw-r--r--lib/Reaction/Types/File.pm42
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