File Coverage

blib/lib/cPanel/APIClient/Utils/FormArray.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	3	4	75.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	25	27	92.5

package cPanel::APIClient::Utils::FormArray;

# Copyright 2020 cPanel, L. L. C.
# All rights reserved.
# http://cpanel.net
#
# This is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself. See L.

use strict;
use warnings;

use URI::Escape ();

sub to_kv_equals_strings {
    my ($args_hr) = @_;

    return map {
        defined( $args_hr->{$_} ) or die "undef value ($_) is invalid!";

        if ( 'ARRAY' eq ref $args_hr->{$_} ) {
            my $key_u = URI::Escape::uri_escape($_);
            map { "$key_u=" . URI::Escape::uri_escape($_) } @{ $args_hr->{$_} };
        }
        else {
            URI::Escape::uri_escape($_) . '=' . URI::Escape::uri_escape( $args_hr->{$_} );
        }
    } keys %$args_hr;
}

1;