use CreditCard;
use Person; # a Class::DBI object
use Data::Dumper;
use Data::Secure qw(SecurityTypes secure secureall);

my $secmgr = new Data::Secure->SecurityManager; # to alter general operations
$secmgr->regex = '^sec|pass|cc_/i'; # overwrite default regex
$secmgr->classes = qw(CreditCard CreditCardGateway); # each has a set of policies and cleaners associated with it.

my $pincleaner = $secmgr->cleaner->new(CreditCard, qw(&cleanccpin &cleanccnum)); # cleaners called in series
$pincleaner->disable(&cleanccnum); # unload one

my $perry = new Person("Perry Rhodan");
print $perry->password; # carps since "password" matches the regex
secure CreditCard $perry->card; # now $perry->card ISA CreditCard

my $buckaroo = secure Person->new("Buckaroo Banzai"); # $buckaroo now secured by default policy.

secure Person; # or just do this for all new instances of Person from now on

$buckaroo->addsec qw(PersonalData DenyCookies DenyTmpFolder); # Add policy classes, so now ISA CreditCard, PersonalData, etc.
secure SecureRamen $buckaroo->noodles; # this now safe to eat

secureall (CreditCard | PersonalData) Person; # secure all current and future instances of Person. Can you do this, which also needs CreditCard to be treated as a scalar value?
my $kyle = new Person "Kyle McLaughlin";
print Data::Dumper $kyle; # this now would substitute asterisks for digits in $kyle->card->cc_number

my CreditCardGateway $gw = $some_io_object;
print $gw $kyle->card->cc_number; # okay here and db only