view release on metacpan or  search on metacpan

lib/Data/Censor.pm  view on Meta::CPAN

    if ( ref $args{sensitive_fields} eq 'Regexp' ) {
        $self->{censor_regex} = $args{sensitive_fields};
    } elsif ( ref $args{sensitive_fields} eq 'ARRAY' ) {
        $self->{is_sensitive_field} = {
            map { $_ => 1 } @{ $args{sensitive_fields} }
        };
    } else {
        $self->{is_sensitive_field} = {
            map { $_ => 1 } qw(
              pass         password     old_password   secret
              private_key  cardnum      card_number    pan
              cvv          cvv2         ccv
            )
        };
    }

    if ( is_hashref $args{replacement_callbacks} ) {
        $self->{replacement_callbacks} = $args{replacement_callbacks};
    }
    if ( exists $args{replacement} ) {
        $self->{replacement} = $args{replacement};