File Coverage

blib/lib/CGI/Untaint/creditcard.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	2	2	100.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	17	17	100.0

package CGI::Untaint::creditcard;

$VERSION = '1.00';

use strict;
use base 'CGI::Untaint::printable';
require Business::CreditCard::Object;

sub is_valid {
  my $self = shift;
	my $card = Business::CreditCard::Object->new($self->value);
  return unless $card->is_valid;
  $self->value($card);
  return $card->number;
}

=head1 NAME

CGI::Untaint::creditcard - validate a creditcard

=head1 SYNOPSIS

  use CGI::Untaint;
  my $handler = CGI::Untaint->new($q->Vars);

  my $cc = $handler->extract(-as_creditcard => 'ccno');

	print $cc->number;

=head1 DESCRIPTION

=head2 is_valid

This Input Handler verifies that it is dealing with a reasonable credit
card number (i.e. one that L believes to
be valid.)

The resulting object will be set back into value().

=head1 SEE ALSO

L. L.

=head1 BUGS and QUERIES

Please direct all correspondence regarding this module to:
  [e-mail]

=head1 COPYRIGHT

  Copyright (C) 2001-2005 Tony Bowden.

  This program is free software; you can redistribute it and/or modify it under
  the terms of the GNU General Public License; either version 2 of the License,
  or (at your option) any later version.

  This program is distributed in the hope that it will be useful, but WITHOUT
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  FOR A PARTICULAR PURPOSE.

=cut

1;