make_itl_loop_struct

gistfile1.pl

#
# given an array of hash refs return a structure that is designed to used
# by one of IC's looping tags via the "list" attribute
#
sub make_itl_loop_struct {
    my $self = shift;
    my $data = shift;

    unless (defined $data) {
        Vend::Exception::ArgumentMissing->throw('data arg not provided');
    }
    unless (ref $data eq 'ARRAY') {
        Vend::Exception->throw('Invalid type of data arg: not an array ref');
    }
    for my $element (@$data) {
        next if ref $element eq 'HASH';

        Vend::Exception->throw('Invalid element of data list: not a hash ref');
    }

    return [
        $data,
        undef,
        [ keys %{ $data->[0] } ],
    ];
}