The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
SPVM-0.0904
River stage two • 23 direct dependents • 26 total dependents
31 ++
/ regen/regen_ndarray_quat.pl

NAME

$package_name - N-Dimension Array of SPVM::Quat_4${prefix}

SYNOPSYS

  my \$ndarray = $package_name->new;
  my \$dim1 = 3;
  my \$dim2 = 4;
  my \$length = \$dim1 * \$dim2;
  \$ndarray->{base} = new SPVM::Quat_4${prefix}[\$length];
  \$ndarray->{length} = \$length;
  \$ndarray->{shape} = [\$dim1, \$dim2];

DESCRIPTION

$package_name is N-Dimension Array of SPVM::Quat_4${prefix}.

See SPVM::NDArray::Document about Details of N-Dimension Array. EOS

  my $perl_module_file = "lib/SPVM/NDArray/Quat"  . ucfirst($type) . ".pm";
  open my $perl_module_fh, '>', $perl_module_file
    or die "Can't open $perl_module_file: $!";
  print $perl_module_fh $perl_module_content;
}