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 Tony Bowden. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself