That's what I was thinking about. Like:

package Business::CreditCard::Obscure;

sub new {
    ...
}

sub obscure {
    ...
    _obscure(%data);
}

sub _obscure {
    ...
}
[download]

Then exporting Business::CreditCard::Obscure::_obscure as obscure.