sub create {
    my ( undef, %arg ) = @_;

    die "Need an an array of hashes input to create CSV from"
        unless exists $arg{input} &&
               ref( $arg{input} ) eq 'ARRAY' &&
               ref( @{ $arg{input} }[0] ) eq 'HASH';

##</code><code>##

use strict;
use warnings;
use Data::Dumper;

sub generate {
	my %inline;
	$inline{'total'} = 2;
	$inline{'items'} = [
		{ 'name' => 'item1' },
		{ 'name' => 'item2' }
	];
	return \%inline;
}

my $ref = &generate();

print Dumper( $ref->{'items'} );

die "failed exists at $ref->{'total'}"
    unless exists $ref->{'items'};
die "not ARRAY at $ref->{'total'}"
    unless ref( $ref->{'items'} ) eq 'ARRAY';
die "not HASH at $ref->{'total'}"
    unless ref( @{ $ref->{'items'} }[0] ) eq 'HASH';
print "ok";
               
#my $csv = Text::CSV::Slurp->create( input => $ref->{'items'} );

__DATA__

$VAR1 = [
          {
            'name' => 'item1'
          },
          {
            'name' => 'item2'
          }
        ];
ok