NAME

Business::CreditCard::Object - a Credit Card object

SYNOPSIS

my $card = Business::CreditCard::Object->new("4929-4929-4929-4929");

            if ($card->is_valid) { 
                    print "Card " . $card->number . " is a " . $card->type;
            }

DESCRIPTION

This provides an OO interface around the Business::CreditCard module. You instantiate it with a card number, and can ask if it is valid, for a standardised version of the card number, and what type of card it is.

METHODS
new

my $card = Business::CreditCard::Object->new("4929-4929-4929-4929");

Construct a new Card object. The card number can contain optional numbers and/or spaces.

is_valid
This computes the checksum for the card given and returns a boolean value for whether or not the number passes this check.

type
This returns the type of card given. See Business::CreditCard for a list of possible values.

number
This returns a standardised version of the card number as a string of digits with all spaces and minus signs removed. The object will also stringify to this value.

AUTHOR

Tony Bowden

BUGS and QUERIES

Please direct all correspondence regarding this module to: bug-Business-CreditCard-Object@rt.cpan.org

SEE ALSO

Business::CreditCard

COPYRIGHT

Copyright (C) 2004-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.