nuked CreditCard type

diff --git a/Makefile.PL b/Makefile.PL
index 5cb3833..9f41b02 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -31,7 +31,6 @@ requires 'Email::MIME::Creator';
 requires 'Text::CSV_XS';
 requires 'Devel::Declare' => '0.001006';
 requires 'MooseX::Types' => '0.04';
-requires 'Business::CreditCard' => '0.30';
 requires 'Scalar::Util';
 
 catalyst;

diff --git a/lib/Reaction/Types/CreditCard.pm b/lib/Reaction/Types/CreditCard.pm
deleted file mode 100644 (file)
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