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;
}