in domainResourceGet nowhere does it check to see if args{domainid} is
defined. It also doesn't seem to set the passed in value so when the
action is executed it causes the following error: PI Error 7: DOMAINID
is not of type numeric.
suggested fix:
sub domainResourceGet {
my ($self, %args) = @_;
$self->_debug(10, 'domainResourceGet called');
my $domainid;
unless (exists ($args{resourceid}) && exists ($args{domainid})) {
$self->_error(-1,
'Must pass domainid or domain and resourceid domainResourceGet');
return;
}
$domainid = $args{domainid};
my $data = $self->do_request(
api_action => 'domain.resource.list',
domainid => $domainid,
resourceid => $args{resourceid},
);
return unless defined ($data);
return $self->_lc_keys($data);
}
RT for rt.cpan.org