File Coverage

blib/lib/cPanel/APIClient/Service/whm.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	2	3	66.6
total	14	27	51.8

package cPanel::APIClient::Service::whm;

use strict;
use warnings;

=encoding utf-8

=head1 NAME

cPanel::APIClient::Service::whm - WebHost Manager access

=head1 SYNOPSIS

If your transport uses blocking I/O:

    my $resp = $client->call_api1('listaccts', \%args);

    my $pops_ar = $resp->get_data();

If your transport uses non-blocking I/O:

    my $call = $client->call_api1('listaccts', \%args);

    $call->promise()->then( sub {
        my ($resp) = @_;

        my $pops_ar = $resp->get_data();
    } );

Some non-blocking transports support canceling in-progress requests, thus:

    $client->cancel($call, ..);

See your transport’s documentation for more details.

=head1 DESCRIPTION

This class stores a WHM API access configuration and exposes
methods to call WHM APIs. It extends L.

Don’t try to create this object directly; instead, let
Ccreate()> do it for you.

=cut

#----------------------------------------------------------------------

use parent qw( cPanel::APIClient::Service );

# overridden in tests
our $_PORT = 2087;

#----------------------------------------------------------------------

=head1 METHODS

=head2 I->call_api1( $FUNCTION_NAME, \%ARGUMENTS )

Calls WHM API v1.

I’s transport configuration will determine what precisely is returned;
however, it should eventually yield a L
instance.

See L for documentation of the available API functions.

=cut

sub call_api1 {
    my ( $self, $func, $args_hr, $metaargs_hr ) = @_;

    require cPanel::APIClient::Request::WHM1;
    my $req = cPanel::APIClient::Request::WHM1->new( $func, $args_hr, $metaargs_hr );

    return $self->{'transporter'}->request( $self, $req );
}

#----------------------------------------------------------------------

=head2 I->call_cpanel_uapi( $USERNAME, $MODULE_NAME, $FUNCTION_NAME, \%ARGUMENTS )

Like C but calls cPanel UAPI from a WHM connection.
Its eventual yield will be a L
instance.

=cut

sub call_cpanel_uapi {
    my ( $self, $cpusername, $mod, $func, $args_hr, $metaargs_hr ) = @_;

    require cPanel::APIClient::Request::UAPIFromWHM1;
    my $req = cPanel::APIClient::Request::UAPIFromWHM1->new( $cpusername, $mod, $func, $args_hr, $metaargs_hr );

    return $self->{'transporter'}->request( $self, $req );
}

#----------------------------------------------------------------------

# left undocumented since unneeded
sub get_https_port {
    return $_PORT;
}

=head1 LICENSE

Copyright 2020 cPanel, L. L. C. All rights reserved. L

This is free software; you can redistribute it and/or modify it under the
same terms as Perl itself. See L.

=cut

1;