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_quat.pl

NAME

$package_name - Quaternion $type multi numeric type

SYNOPSYS

  my \$z : $package_name;
  \$z->{t} = 1;
  \$z->{x} = 2;
  \$z->{y} = 3;
  \$z->{z} = 4;

DESCRIPTION

$package_name is Quaternion $type multi numeric type. EOS

  my $perl_module_file = "lib/SPVM/Quat_2$prefix.pm";
  open my $perl_module_fh, '>', $perl_module_file
    or die "Can't open $perl_module_file: $!";
  print $perl_module_fh $perl_module_content;
}