File Coverage

lib/LWP/Authen/OAuth2/ServiceProvider/Dwolla.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	2	6	33.3
condition			n/a
subroutine	8	10	80.0
pod	2	6	33.3
total	34	48	70.8

package LWP::Authen::OAuth2::ServiceProvider::Dwolla;

# ABSTRACT: Access Dwolla API v2
our $VERSION = '0.20'; # VERSION

use strict;
use warnings;

use base qw/LWP::Authen::OAuth2::ServiceProvider/;

use JSON qw/decode_json/;

sub authorization_endpoint {
    my $self = shift;
    my $host = $self->{use_test_urls} ? 'uat.dwolla.com' : 'www.dwolla.com';
    return 'https://'.$host.'/oauth/v2/authenticate';
}

sub token_endpoint {
    my $self = shift;
    my $host = $self->{use_test_urls} ? 'uat.dwolla.com' : 'www.dwolla.com';
    return 'https://'.$host.'/oauth/v2/token';
}

sub api_url_base {
    my $self = shift;
    my $host = $self->{use_test_urls} ? 'api-uat.dwolla.com' : 'api.dwolla.com';
    return 'https://'.$host;
}

sub authorization_required_params {
    my $self = shift;
    return ('scope', $self->SUPER::authorization_required_params());
}

sub authorization_optional_params {
    my $self = shift;
    return ($self->SUPER::authorization_optional_params(), qw/dwolla_landing verified_account/);
}

sub default_api_headers {
    return { 'Content-Type' => 'application/vnd.dwolla.v1.hal+json', 'Accept' => 'application/vnd.dwolla.v1.hal+json' };
}


1;

__END__