package acuity;

use strict;
use Exporter;
use Carp;

use Digest::MD5 qw(md5 md5_hex md5_base64);
use DateTime;
use Log::Log4perl qw(:easy get_logger);
use LWP::UserAgent;
use LWP::Protocol::https;
use HTTP::Request;
use HTTP::Request::Common;
use HTTP::Response;
use HTTP::Status;
use Encode qw(decode encode);
use JSON;

use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION = 1.00;
@ISA = qw (Exporter);
@EXPORT = ();

@EXPORT_OK = qw(check_risk update_risk_data);
%EXPORT_TAGS = (All => [qw(&check_risk &update_risk_data)]);

my $class_data = {