File Coverage

blib/lib/Business/MaxMind/CreditCardFraudDetection.pm

Criterion	Covered	Total	%
statement	19	27	70.3
branch	0	8	0.0
condition	1	2	50.0
subroutine	5	6	83.3
pod	0	1	0.0
total	25	44	56.8

package Business::MaxMind::CreditCardFraudDetection;

use strict;

use Digest::MD5;
use LWP::UserAgent;
use base 'Business::MaxMind::HTTPBase';

our $VERSION = '1.57';

# input fields
my @allowed_fields
    = qw/i city region postal country domain bin binName binPhone
    custPhone emailMD5 usernameMD5 passwordMD5 shipAddr shipCity
    shipRegion shipPostal shipCountry txnID sessionID user_agent
    accept_language order_amount order_currency shopID avs_result
    cvv_result txn_type license_key requested_type forwardedIP/;

sub _init {
    my $self = shift;
    $self->{url}         = 'app/ccv2r';
    $self->{check_field} = 'countryMatch';
    $self->{timeout} ||= 10
        ; # provide a default value of 10 seconds for timeout if not set by user
    %{ $self->{allowed_fields} } = map { $_ => 1 } @allowed_fields;
}

sub filter_field {
    my ( $self, $name, $value ) = @_;

    if ( $name eq 'emailMD5' ) {
        if ( $value =~ m!\@! ) {
            return Digest::MD5::md5_hex( lc($value) );
        }
    }

    if ( $name =~ m!(username|password)MD5$! ) {
        if ( length($value) != 32 ) {
            return Digest::MD5::md5_hex( lc($value) );
        }
    }

    return $value;
}

1;

# ABSTRACT: Access MaxMind minFraud services

__END__