From f3c4c9089b9a0855d599608db87aea1ef700fcd1 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Mon, 25 Jun 2018 15:18:56 -0700 Subject: [PATCH] doc: example shows new-style usage --- CreditCard.pm | 24 +++++++++++++++++++----- t/validate_card.t | 2 +- 2 files changed, 20 insertions(+), 6 deletions(-) diff --git a/CreditCard.pm b/CreditCard.pm index 79c7df1..e6d3cd9 100644 --- a/CreditCard.pm +++ b/CreditCard.pm @@ -5,7 +5,7 @@ use vars qw( @ISA $VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS $Country ); @ISA = qw( Exporter ); -$VERSION = "0.37_01"; +$VERSION = "0.37_02"; @EXPORT = qw( cardtype validate generate_last_digit ); @EXPORT_OK = qw( receipt_cardtype validate_card ); @@ -19,11 +19,25 @@ C - Validate/generate credit card checksums/names =head1 SYNOPSIS + ## + # new-style, supported since 0.36 released Jun 14 2016 + ## + + use Business::CreditCard qw( 0.36 :NEW ); + + print validate_card("5276 4400 6542 1319"); + print cardtype("5276 4400 6542 1319"); + + + ## + # old interface, deprecated but still supported for backwards compatibility + ## + use Business::CreditCard; print validate("5276 4400 6542 1319"); print cardtype("5276 4400 6542 1319"); - print generate_last_digit("5276 4400 6542 131"); + Business::CreditCard is available at a CPAN site near you. @@ -33,7 +47,7 @@ These subroutines tell you whether a credit card number is self-consistent -- whether the last digit of the number is a valid checksum for the preceding digits. -The validate() subroutine returns 1 if the card number provided passes +The validate_card() subroutine returns 1 if the card number provided passes the checksum test, and 0 otherwise. The cardtype() subroutine returns a string containing the type of @@ -79,7 +93,7 @@ whether a card is real, or whether it's been stolen, or to actually process charges, you need a Merchant account. See L. These subroutines will also work if you provide the arguments -as numbers instead of strings, e.g. C. +as numbers instead of strings, e.g. C. =head1 PROCESSING AGREEMENTS @@ -215,7 +229,7 @@ Don't export validate() (or anything else [separately?]) by default. This is the part that will break things and we probably won't do for a long time, until new-style usage is the norm and the tradeoff of breaking old code -is worth it to stop or namespace pollution. Maybe do a 1.00 release with the +is worth it to stop our namespace pollution. Maybe do a 1.00 release with the current API and 2.00 is when this happens (with a 1.99_01 pre-release)? =head1 SEE ALSO diff --git a/t/validate_card.t b/t/validate_card.t index 76fcca0..8d3d8cf 100644 --- a/t/validate_card.t +++ b/t/validate_card.t @@ -12,7 +12,7 @@ my @bad_table=( ); use Test::More tests => 4; #haha no scalar(@test_table) + scalar(@bad_table); -use Business::CreditCard qw( :NEW ); +use Business::CreditCard qw( 0.36 :NEW ); foreach my $card (@test_table) { ok( validate_card($card), "validate_card($card)" ); -- 2.11.0