The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

FAYLAND / Net-WHMCS-0.10 / lib / Net / WHMCS / Base.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
—
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

              
package Net::WHMCS::Base;
$Net::WHMCS::Base::VERSION = '0.10';
# ABSTRACT: WHMCS API Role
use Moo::Role;
use Carp 'croak';
use LWP::UserAgent;
use JSON;
has 'WHMCS_URL' => (
    is       => 'rw',
    required => 1
);
has 'api_identifier' => (is => 'ro');
has 'api_secret'     => (is => 'ro');
has 'WHMCS_USERNAME'      => (is => 'rw');
has 'WHMCS_PASSWORD'      => (is => 'rw');
has 'WHMCS_API_ACCESSKEY' => (is => 'rw');
has 'ua' => (is => 'lazy');
sub _build_ua {
    return LWP::UserAgent->new;
}
sub build_request {
    my ($self, $params) = @_;
    if (not exists $params->{action}) {
        croak "No API action set\n";
    }
    if ($self->api_identifier) {
        $params->{identifier} = $self->api_identifier;
        $params->{secret}     = $self->api_secret;
    } else {
        $params->{username}  = $self->WHMCS_USERNAME;
        $params->{password}  = $self->WHMCS_PASSWORD;
        $params->{accesskey} = $self->WHMCS_API_ACCESSKEY if $self->WHMCS_API_ACCESSKEY;
    }
    $params->{responsetype} = 'json';
    my $resp = $self->ua->post($self->WHMCS_URL, $params);
    return {
        result  => 'error',
        message => $resp->status_line
    } unless $resp->is_success;
    # print Dumper(\$resp); use Data::Dumper;
    return decode_json($resp->content);
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Net::WHMCS::Base - WHMCS API Role
=head1 VERSION
version 0.10
=head3 build_request
        with 'Net::WHMCS::Base';
        $self->build_request({
                action => 'getclientsdetails',
                clientid => 1,
                stats => 'true',
        })
=head1 AUTHOR
Fayland Lam <fayland@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2019 by Fayland Lam.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut