File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/cPanel/APIClient/Service/cpanel.pm
Back
package cPanel::APIClient::Service::cpanel; use strict; use warnings; =encoding utf-8 =head1 NAME cPanel::APIClient::Service::cpanel =head1 SYNOPSIS If your transport uses blocking I/O: my $resp = $client->call_uapi('Email', 'list_pops', \%args); my $pops_ar = $resp->get_data(); If your transport uses non-blocking I/O: my $call = $client->call_uapi('Email', 'list_pops', \%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. =cut #---------------------------------------------------------------------- use parent qw( cPanel::APIClient::Service ); # overridden in tests our $_PORT = 2083; #---------------------------------------------------------------------- =head1 METHODS =head2 $whatsit = I<OBJ>->call_uapi( $MODULE, $FUNC, \%ARGS, \%METAARGS ) Calls a single UAPI call. %ARGS values should be simple scalars or arrays thereof. The return value depends on I<OBJ>’s configured transport: =over =item * If the transport uses blocking I/O, then the return will be a L<cPanel::APIClient::Response::UAPI> instance. =item * A transport that uses non-blocking I/O can determine its own mechanism for returning the API call response. Some might return a promise (e.g., L<Promise::XS>), others a L<Future>, and still others might return nothing and instead take a callback as a parameter. See the individual transport’s documentation for details. Eventually, though, a L<cPanel::APIClient::Response::UAPI> instance should somehow be given to indicate the API call response. =back =cut sub call_uapi { my ( $self, $module, $func, $args_hr, $metaargs_hr ) = @_; die "Meta-arguments are not implemented!" if $metaargs_hr; require cPanel::APIClient::Request::UAPI; my $req = cPanel::APIClient::Request::UAPI->new( $module, $func, $args_hr, $metaargs_hr ); return $self->{'transporter'}->request( $self, $req ); } # undocumented for now sub get_https_port { return $_PORT; } =head1 LICENSE Copyright 2020 cPanel, L. L. C. All rights reserved. L<http://cpanel.net> This is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<perlartistic>. =cut 1;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.02 |
proxy
|
phpinfo
|
Settings