File Coverage

blib/lib/Business/MaxMind/CreditCardFraudDetection.pm

Criterion	Covered	Total	%
statement	26	30	86.6
branch	2	8	25.0
condition	1	2	50.0
subroutine	7	7	100.0
pod	0	1	0.0
total	36	48	75.0

package Business::MaxMind::CreditCardFraudDetection;

use strict;

use vars qw($VERSION);

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

# 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/;

$VERSION = '1.54';

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;
__END__