view release on metacpan or  search on metacpan

lib/Finance/Card/Discover.pm  view on Meta::CPAN

        password  => $self->{password},
        @params,
    );

    my $res = $self->{response} = $self->ua->post($uri);
    return unless $res->is_success;

    # The response content is a url-encoded string.
    my %data = do {
        my $u = URI->new;
        $u->query($res->decoded_content);
        $u->query_form
    };
    return if not %data or 'error' eq $data{action};
    return \%data;
}


1;

__END__

lib/Finance/Card/Discover/Account.pm  view on Meta::CPAN

        $uri,
        if_ssl_cert_subject => "/CN=(?i)\Q@{[$uri->host]}\E\$",
        content_type        => 'application/x-ofx',
        content             => $xml,
    );
    return unless $res->is_success;

    require XML::LibXML;
    $XML_PARSER ||= XML::LibXML->new;
    my $dom = eval {
        $XML_PARSER->parse_string($res->decoded_content);
    } or croak "Failed to parse response XML: $@";
    return $dom;
}

sub _dt_to_ofx {
    my ($dt) = @_;
    sprintf '%d%02d%02d%02d%02d%02d.000', $dt->year, $dt->month,
        $dt->day, $dt->hour, $dt->minute, $dt->second;
}