diff options
author | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-30 21:10:59 +0000 |
---|---|---|
committer | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-30 21:10:59 +0000 |
commit | 75ff359ae74999339b3e1adee5a7f4ecb6fce88b (patch) | |
tree | c8f8b53753078f7e8da9d7fbaafa394b8375b3fe /lib/Reaction/Types | |
parent | 2421adebbb1f5cb780cd98171989484f5e503acc (diff) | |
download | reaction-75ff359ae74999339b3e1adee5a7f4ecb6fce88b.tar.gz reaction-75ff359ae74999339b3e1adee5a7f4ecb6fce88b.zip |
nuked CreditCard type
Diffstat (limited to 'lib/Reaction/Types')
-rw-r--r-- | lib/Reaction/Types/CreditCard.pm | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/lib/Reaction/Types/CreditCard.pm b/lib/Reaction/Types/CreditCard.pm deleted file mode 100644 index f733355..0000000 --- a/lib/Reaction/Types/CreditCard.pm +++ /dev/null @@ -1,49 +0,0 @@ -package Reaction::Types::CreditCard; - -use MooseX::Types - -declare => [qw/CardNumber CheckNumber/]; - -use Reaction::Types::Core qw/NonEmptySimpleStr PositiveInt/; -use Business::CreditCard (); - -subtype CardNumber - => as NonEmptySimpleStr - => where { Business::CreditCard::validate($_) } - => message {"Must be a valid card number"}; - -subtype CheckNumber - => as PositiveInt - => where { $_ <= 999 } - => message { "Must be a 3 digits number" }; - -1; - -=head1 NAME - -Reaction::Types::CreditCard - -=head1 DESCRIPTION - -=over - -=item * CardNumber - -=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 |