File Coverage

blib/lib/Apertur/SDK.pm

Criterion	Covered	Total	%
statement	61	61	100.0
branch	6	6	100.0
condition	8	14	57.1
subroutine	25	25	100.0
pod	10	11	90.9
total	110	117	94.0

package Apertur::SDK;

use strict;
use warnings;

our $VERSION = '0.01';

use Apertur::SDK::HTTPClient;
use Apertur::SDK::Resource::Sessions;
use Apertur::SDK::Resource::Upload;
use Apertur::SDK::Resource::Uploads;
use Apertur::SDK::Resource::Polling;
use Apertur::SDK::Resource::Destinations;
use Apertur::SDK::Resource::Keys;
use Apertur::SDK::Resource::Webhooks;
use Apertur::SDK::Resource::Encryption;
use Apertur::SDK::Resource::Stats;

use constant DEFAULT_BASE_URL => 'https://api.aptr.ca';
use constant SANDBOX_BASE_URL => 'https://sandbox.api.aptr.ca';

sub new {
    my ($class, %args) = @_;

    die "Either api_key or oauth_token must be provided\n"
        unless $args{api_key} || $args{oauth_token};

    # Resolve environment from key prefix or explicit config
    my $token = $args{api_key} // $args{oauth_token} // '';
    my $detected_env = ($token =~ /^aptr_test_/) ? 'test' : 'live';
    my $env = $args{env} // $detected_env;

    # Auto-select sandbox URL for test keys unless base_url is explicitly set
    my $default_url = $env eq 'test' ? SANDBOX_BASE_URL : DEFAULT_BASE_URL;
    my $base_url = $args{base_url} // $default_url;

    my $http = Apertur::SDK::HTTPClient->new(
        base_url    => $base_url,
        api_key     => $args{api_key},
        oauth_token => $args{oauth_token},
    );

    return bless {
        env          => $env,
        _http        => $http,
        sessions     => Apertur::SDK::Resource::Sessions->new(http => $http),
        upload       => Apertur::SDK::Resource::Upload->new(http => $http),
        uploads      => Apertur::SDK::Resource::Uploads->new(http => $http),
        polling      => Apertur::SDK::Resource::Polling->new(http => $http),
        destinations => Apertur::SDK::Resource::Destinations->new(http => $http),
        keys         => Apertur::SDK::Resource::Keys->new(http => $http),
        webhooks     => Apertur::SDK::Resource::Webhooks->new(http => $http),
        encryption   => Apertur::SDK::Resource::Encryption->new(http => $http),
        stats        => Apertur::SDK::Resource::Stats->new(http => $http),
    }, $class;
}

sub env          { return $_[0]->{env} }
sub sessions     { return $_[0]->{sessions} }
sub upload       { return $_[0]->{upload} }
sub uploads      { return $_[0]->{uploads} }
sub polling      { return $_[0]->{polling} }
sub destinations { return $_[0]->{destinations} }
sub keys         { return $_[0]->{keys} }
sub webhooks     { return $_[0]->{webhooks} }
sub encryption   { return $_[0]->{encryption} }
sub stats        { return $_[0]->{stats} }

1;

__END__