File Coverage

lib/Net/Upwork/API/Config.pm

Criterion	Covered	Total	%
statement	6	25	24.0
branch	0	2	0.0
condition	0	29	0.0
subroutine	2	3	66.6
pod	1	1	100.0
total	9	60	15.0

# Licensed under the Upwork's API Terms of Use;
# you may not use this file except in compliance with the Terms.
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
# Author::    Maksym Novozhylov ([e-mail])
# Copyright:: Copyright 2015(c) Upwork.com
# License::   See LICENSE.txt and TOS - https://developers.upwork.com/api-tos.html

package Net::Upwork::API::Config;

use strict;
use warnings;

=pod

=head1 NAME

Config

=head1 FUNCTIONS

=over 4

=item new(%params)

Create a new Config

B

$params

    List of configuration options

=cut

sub new {
    my $class = shift;
    my %opts = @_;
    $opts{client_id} ||= "";
    $opts{client_secret} ||= "";
    $opts{access_token} ||= "";
    $opts{refresh_token} ||= "";
    $opts{expires_in} ||= "";
    $opts{expires_at} ||= "";
    $opts{redirect_uri} ||= "";
    $opts{site} ||= "https://www.upwork.com";
    $opts{authorize_path} ||= "/ab/account-security/oauth2/authorize";
    $opts{access_token_path} ||= "/api/v3/oauth2/token";
    $opts{refresh_token_path} ||= "/api/v3/oauth2/token";
    $opts{callback} ||= "";
    $opts{debug} ||= 0;
    unless ($opts{client_id} && $opts{client_secret}) {
        die "You must specify a consumer key (client_id) and secret (client_secret) in the config\n";
    }
    my $self = bless \%opts, $class;

    return $self;
}

=back

=head1 AUTHOR

Maksym Novozhylov C<<  >>

=head1 COPYRIGHT

Copyright E Upwork Global Corp., 2018

=cut

1;