doc: example shows new-style usage

[Business-CreditCard.git] / t / validate_card.t

diff --git a/t/validate_card.t b/t/validate_card.t
index 76fcca0..8d3d8cf 100644 (file)
--- 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)" );