Select Code to Download

sub create {
    my ( undef, %arg ) = @_;
...
        unless exists $arg{input} &&
               ref( $arg{input} ) eq 'ARRAY' &&
               ref( @{ $arg{input} }[0] ) eq 'HASH';

use strict;
use warnings;
...
          }
        ];
ok