view release on metacpan or  search on metacpan

lib/Data/OFAC/SDN.pm  view on Meta::CPAN

sub updateDatabase {
    my $self = shift;

    my $lwp = LWP::UserAgent->new();
    $lwp->timeout(10);
    $lwp->env_proxy;

    my $rsp = $lwp->get(SDNURL);

    if ( $rsp->is_success ) {
        $self->buildDatabase( $rsp->decoded_content );
    }
    else {
        $self->{_status} = 'dirty';
    }

    return 1;
}

sub buildDatabase {
    my $self = shift;