http://www.perlmonks.org?node_id=568633


in reply to Re^2: RFC: Business::CreditCard::Obscure
in thread RFC: Business::CreditCard::Obscure

I could use the module like this:

my $obscure = Business::CreditCard::Obscure->new(cardnum => '123456789 +012')->obscure();

Since it is very specific, why don't you write your module to export a function, like this:

use Business::CreditCard::Obscure qw(obscure); my $obscure = obscure(cardnum = '123456789012');

Igor 'izut' Sutton
your code, your rules.