diff options
author | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-26 15:28:01 +0000 |
---|---|---|
committer | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-26 15:28:01 +0000 |
commit | bded3808af758db37b44806d6729aeeb603c3341 (patch) | |
tree | a2bd1e59ff9ac94562ca2c074fe263d909035e43 /lib/Reaction/Types | |
parent | ab5789054f8e4be94f652d364558ae7ba8586cd7 (diff) | |
download | reaction-bded3808af758db37b44806d6729aeeb603c3341.tar.gz reaction-bded3808af758db37b44806d6729aeeb603c3341.zip |
unquoted Reaction::Types
Diffstat (limited to 'lib/Reaction/Types')
-rw-r--r-- | lib/Reaction/Types/Core.pm | 32 | ||||
-rw-r--r-- | lib/Reaction/Types/DBIC.pm | 8 | ||||
-rw-r--r-- | lib/Reaction/Types/DateTime.pm | 12 | ||||
-rw-r--r-- | lib/Reaction/Types/Email.pm | 4 | ||||
-rw-r--r-- | lib/Reaction/Types/File.pm | 4 |
5 files changed, 30 insertions, 30 deletions
diff --git a/lib/Reaction/Types/Core.pm b/lib/Reaction/Types/Core.pm index 8faa6ed..62d508c 100644 --- a/lib/Reaction/Types/Core.pm +++ b/lib/Reaction/Types/Core.pm @@ -6,46 +6,46 @@ use MooseX::Types use MooseX::Types::Moose qw/Str Num Int/; -subtype 'SimpleStr' - => as 'Str' +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' +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' +subtype Password + => as NonEmptySimpleStr => where { length($_) > 3 } => message { "Must be between 4 and 255 chars" }; -subtype 'StrongPassword' - => as 'Password' +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' +subtype NonEmptyStr + => as Str => where { length($_) > 0 } => message { "Must not be empty" }; -subtype 'PositiveNum' - => as 'Num' +subtype PositiveNum + => as Num => where { $_ >= 0 } => message { "Must be a positive number" }; -subtype 'PositiveInt' - => as 'Int' +subtype PositiveInt + => as Int => where { $_ >= 0 } => message { "Must be a positive integer" }; -subtype 'SingleDigit' - => as 'PositiveInt' +subtype SingleDigit + => as PositiveInt => where { $_ <= 9 } => message { "Must be a single digit" }; diff --git a/lib/Reaction/Types/DBIC.pm b/lib/Reaction/Types/DBIC.pm index 3efd7db..c8d5a00 100644 --- a/lib/Reaction/Types/DBIC.pm +++ b/lib/Reaction/Types/DBIC.pm @@ -6,15 +6,15 @@ use MooseX::Types use MooseX::Types::Moose 'Object'; use DBIx::Class::ResultSet; -subtype 'ResultSet' - => as 'Object' +subtype ResultSet + => as Object => where { $_->isa('DBIx::Class::ResultSet') }; use DBIx::Class::Core; use DBIx::Class::Row; -subtype 'Row' - => as 'Object' +subtype Row + => as Object => where { $_->isa('DBIx::Class::Row') }; 1; diff --git a/lib/Reaction/Types/DateTime.pm b/lib/Reaction/Types/DateTime.pm index b3797cf..491ebe5 100644 --- a/lib/Reaction/Types/DateTime.pm +++ b/lib/Reaction/Types/DateTime.pm @@ -6,19 +6,19 @@ use MooseX::Types use MooseX::Types::Moose qw/Object ArrayRef/; use DateTime; -subtype 'DateTime' - => as 'Object' +subtype DateTime + => as Object => where { $_->isa('DateTime') } => message { "Must be of the form YYYY-MM-DD HH:MM:SS" }; use DateTime::SpanSet; -subtype 'SpanSet' - => as 'Object' +subtype SpanSet + => as Object => where { $_->isa('DateTime::SpanSet') }; -subtype 'TimeRangeCollection' - => as 'ArrayRef'; +subtype TimeRangeCollection + => as ArrayRef; 1; diff --git a/lib/Reaction/Types/Email.pm b/lib/Reaction/Types/Email.pm index faa165f..a82d16f 100644 --- a/lib/Reaction/Types/Email.pm +++ b/lib/Reaction/Types/Email.pm @@ -6,8 +6,8 @@ use MooseX::Types use Reaction::Types::Core 'NonEmptySimpleStr'; use Email::Valid; -subtype 'EmailAddress' - => as 'NonEmptySimpleStr' +subtype EmailAddress + => as NonEmptySimpleStr => where { Email::Valid->address($_) } => message { "Must be a valid e-mail address" }; diff --git a/lib/Reaction/Types/File.pm b/lib/Reaction/Types/File.pm index 6274a7b..a3b762b 100644 --- a/lib/Reaction/Types/File.pm +++ b/lib/Reaction/Types/File.pm @@ -6,8 +6,8 @@ use MooseX::Types use MooseX::Types::Moose 'Object'; use Catalyst::Request::Upload; -subtype 'File' - => as 'Object' +subtype File + => as Object => where { $_->isa('Catalyst::Request::Upload') } => message { "Must be a file" }; |