lib/Reaction/Types/CreditCard.pm

   1 package Reaction::Types::CreditCard;
   2
   3 use MooseX::Types
   4     -declare => [qw/CardNumber/];
   5
   6 use Reaction::Types::Core 'NonEmptySimpleStr';
   7 use Business::CreditCard ();
   8
   9 subtype 'CardNumber'
  10     => as 'NonEmptySimpleStr'
  11     => where   { Business::CreditCard::validate($_) }
  12     => message {"Must be a valid card number"};
  13
  14 1;
  15
  16 =head1 NAME
  17
  18 Reaction::Types::CreditCard
  19
  20 =head1 DESCRIPTION
  21
  22 =over
  23
  24 =item * CardNumber
  25
  26 =back
  27
  28 =head1 SEE ALSO
  29
  30 =over
  31
  32 =item * L<Reaction::Types::Core>
  33
  34 =back
  35
  36 =head1 AUTHORS
  37
  38 See L<Reaction::Class> for authors.
  39
  40 =head1 LICENSE
  41
  42 See L<Reaction::Class> for the license.
  43
  44 =cut