NAME

SPVM::$class_name - $class_name is a SPVM module

SYNOPSYS

use $class_name;

DESCRIPTION

$class_name is a SPVM module.

STATIC METHODS

INSTANCE METHODS

REPOSITORY

BUG REPORT

SUPPORT

AUTHOR

COPYRIGHT & LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

EOS

# Generate file
my $perl_module_rel_file = SPVM::Builder::Util::convert_class_name_to_rel_file($class_name, 'pm');
$perl_module_rel_file =  $self->create_lib_rel_file($perl_module_rel_file);
$self->generate_file($perl_module_rel_file, $perl_module_content);
}

sub generate_native_config_file { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# C or C++
my $native = $self->native;
my $new_method;
if ($native eq 'c') {
  $new_method = 'new_gnu99';
}
elsif ($native eq 'c++') {
  $new_method = 'new_cpp';
}

# Content
my $native_config_content = <<"EOS";
use strict;
use warnings;
use SPVM::Builder::Config;

my \$native_config = SPVM::Builder::Config->$new_method(file => __FILE__);

\$native_config; EOS

# Generate file
my $native_config_rel_file = SPVM::Builder::Util::convert_class_name_to_rel_file($class_name, 'config');
$native_config_rel_file =  $self->create_lib_rel_file($native_config_rel_file);
$self->generate_file($native_config_rel_file, $native_config_content);
}

sub generate_native_module_file { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# extern C for C++
my $native = $self->native;
my $extern_c_start;
my $extern_c_end;
if ($native eq 'c++') {
  $extern_c_start = qq(extern "C" {);
  $extern_c_end = "}";
}
else {
  $extern_c_start = '';
  $extern_c_end = '';
}

# Content
my $native_class_name = $class_name;
$native_class_name =~ s/::/__/g;
my $native_module_content = <<"EOS";
#include "spvm_native.h"

$extern_c_start

int32_t SPVM__${native_class_name}__foo(SPVM_ENV* env, SPVM_VALUE* stack) { (void)env; (void)stack;

return 0;
}

$extern_c_end EOS

# Generate file
my $native_module_ext;
if (defined $native) {
  if ($native eq 'c') {
    $native_module_ext = 'c';
  }
  elsif ($native eq 'c++') {
    $native_module_ext = 'cpp';
  }
}
my $native_module_rel_file = SPVM::Builder::Util::convert_class_name_to_rel_file($class_name, $native_module_ext);
$native_module_rel_file =  $self->create_lib_rel_file($native_module_rel_file);
$self->generate_file($native_module_rel_file, $native_module_content);
}

sub generate_gitkeep_file_for_native_module_include_dir { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# Generate file
my $gitkeep_rel_file_for_native_module_include_dir = SPVM::Builder::Util::convert_class_name_to_rel_file($class_name, 'native');
$gitkeep_rel_file_for_native_module_include_dir .= '/include/.gitkeep';
$gitkeep_rel_file_for_native_module_include_dir =  $self->create_lib_rel_file($gitkeep_rel_file_for_native_module_include_dir);
$self->generate_file($gitkeep_rel_file_for_native_module_include_dir, '');
}

sub generate_gitkeep_file_for_native_module_src_dir { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# Generate file
my $gitkeep_rel_file_for_native_module_include_dir = SPVM::Builder::Util::convert_class_name_to_rel_file($class_name, 'native');
$gitkeep_rel_file_for_native_module_include_dir .= '/src/.gitkeep';
$gitkeep_rel_file_for_native_module_include_dir =  $self->create_lib_rel_file($gitkeep_rel_file_for_native_module_include_dir);
$self->generate_file($gitkeep_rel_file_for_native_module_include_dir, '');
}

sub generate_gitignore_file { my ($self) = @_;

my $gitignore_content = <<"EOS";
blib/*
Makefile
Makefile.old
MYMETA.yml
MYMETA.json
pm_to_blib
.spvm_build
t/.spvm_build
core.*
core
SPVM-*
*.bak
*.BAK
*.tmp
MANIFEST
EOS

# Generate file
my $gitignore_rel_file = '.gitignore';
$self->generate_file($gitignore_rel_file, $gitignore_content);
}

sub generate_manifest_skip_file { my ($self) = @_;

# Content
my $manifest_skip_content = <<"EOS";
^blib/
^Makefile\$
^Makefile\.old\$
^MYMETA.yml\$
^MYMETA.json\$
^pm_to_blib\$
^\.spvm_build/
^t/\.spvm_build/
^SPVM-
^core\.
^core\$
\.bak\$
\.tmp\$
\.BAK\$
^\.git/
EOS

# Generate file
my $manifest_skip_rel_file = 'MANIFEST.SKIP';
$self->generate_file($manifest_skip_rel_file, $manifest_skip_content);
}

sub generate_changes_file { my ($self) = @_;

# Content
my $changes_content = <<"EOS";
0.01 YYYY-MM-DD

*

EOS

# Generate file
my $changes_rel_file = 'Changes';
$self->generate_file($changes_rel_file, $changes_content);
}

sub generate_readme_markdown_file { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# Content
my $readme_markdown_content = <<"EOS";
# SPVM::$class_name

SPVM::$class_name is a SPVM module.

EOS

# Generate file
my $readme_markdown_rel_file = 'README.md';
$self->generate_file($readme_markdown_rel_file, $readme_markdown_content);
}

sub generate_makefile_pl_file { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# Resource
my $resource = $self->resource;

# Native make rule
my $make_rule_native = $self->native && !$resource ? "\$make_rule .= SPVM::Builder::Util::API::create_make_rule_native('$class_name');" : '';

# Precompile make rule
my $make_rule_precompile = $self->precompile && !$resource ? "\$make_rule .= SPVM::Builder::Util::API::create_make_rule_precompile('$class_name');" : '';

my $perl_module_rel_file = SPVM::Builder::Util::convert_class_name_to_rel_file($class_name, 'pm');
$perl_module_rel_file =  $self->create_lib_rel_file($perl_module_rel_file);

# "Makefile.PL" content
my $makefile_pl_content = <<"EOS";
use 5.008_007;
use ExtUtils::MakeMaker;
use strict;
use warnings;
use Config;
use SPVM::Builder::Util::API;

WriteMakefile( NAME => 'SPVM::$class_name', VERSION_FROM => '$perl_module_rel_file', PREREQ_PM => {}, # e.g., Module::Name => 1.1 LICENSE => 'perl_5', (\$] >= 5.005 ? ## Add these new keywords supported since 5.005 (ABSTRACT_FROM => '$perl_module_rel_file', AUTHOR => 'USER_NAME<USER_MAIL>') : ()), test => {TESTS => 't/*.t'}, clean => {FILES => ['.spvm_build', 't/.spvm_build']}, META_MERGE => { 'meta-spec' => { version => 2 }, resources => { repository => { type => 'git', url => '', web => '', }, }, }, # SPVM::Builder::Util::API is needed for Makefile.PL CONFIGURE_REQUIRES => { 'SPVM' => '$SPVM::VERSION', }, );

sub MY::postamble {

my \$make_rule = '';

$make_rule_native
$make_rule_precompile

return \$make_rule;
}

1; EOS

# Generate file
my $makefile_pl_rel_file = 'Makefile.PL';
$self->generate_file($makefile_pl_rel_file, $makefile_pl_content);
}

sub generate_basic_test_file { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# Content
my $basic_test_content = <<"EOS";
use Test::More;

use strict; use warnings; use FindBin; use lib "\$FindBin::Bin/lib"; BEGIN { \$ENV{SPVM_BUILD_DIR} = "\$FindBin::Bin/.spvm_build"; }

use SPVM 'TestCase::$class_name';

ok(SPVM::TestCase::$class_name->test);

done_testing; EOS

# Generate file
my $basic_test_rel_file = 't/basic.t';
$self->generate_file($basic_test_rel_file, $basic_test_content);
}

sub generate_basic_test_spvm_module_file { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# Resource
my $resource = $self->resource;

# Content
my $basic_test_spvm_module_content;

if ($resource) {
  $basic_test_spvm_module_content = <<"EOS";
class TestCase::$class_name {
native static method test : int ();
}
EOS
}
else {
  $basic_test_spvm_module_content = <<"EOS";
class TestCase::$class_name {
static method test : int () {
  
  return 1;
}
}
EOS
}

# Generate file
my $basic_test_spvm_module_rel_file = SPVM::Builder::Util::convert_class_name_to_rel_file("TestCase::$class_name", 'spvm');
$basic_test_spvm_module_rel_file = "t/lib/$basic_test_spvm_module_rel_file";
$self->generate_file($basic_test_spvm_module_rel_file, $basic_test_spvm_module_content);
}

sub generate_basic_test_native_config_file { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# Resource
my $resource = $self->resource;

# C or C++
my $native = $self->native;
my $new_method;
if ($native eq 'c') {
  $new_method = 'new_gnu99';
}
elsif ($native eq 'c++') {
  $new_method = 'new_cpp';
}

# Content
my $basic_test_native_config_content = <<"EOS";
use strict;
use warnings;

my \$config = SPVM::Builder::Config->$new_method(file => __FILE__);

\$config->use_resource('$class_name');

\$config; EOS

# Generate file
my $basic_test_native_config_rel_file = SPVM::Builder::Util::convert_class_name_to_rel_file("TestCase::$class_name", 'config');
$basic_test_native_config_rel_file = "t/lib/$basic_test_native_config_rel_file";
$self->generate_file($basic_test_native_config_rel_file, $basic_test_native_config_content);
}

sub generate_basic_test_native_module_file { my ($self) = @_;

# Class name
my $class_name = $self->class_name;

# Resource
my $resource = $self->resource;

# extern C for C++
my $native = $self->native;
my $extern_c_start;
my $extern_c_end;
if ($native eq 'c++') {
  $extern_c_start = qq(extern "C" {);
  $extern_c_end = "}";
}
else {
  $extern_c_start = '';
  $extern_c_end = '';
}

# Content
my $native_class_name = $class_name;
$native_class_name =~ s/::/__/g;
my $basic_test_native_module_content = <<"EOS";
#include "spvm_native.h"

$extern_c_start

int32_t SPVM__TestCase__${native_class_name}__test(SPVM_ENV* env, SPVM_VALUE* stack) { (void)env; (void)stack;

stack[0].ival = 1;

return 0;
}

$extern_c_end EOS

# Generate file
my $native_module_ext;
if (defined $native) {
  if ($native eq 'c') {
    $native_module_ext = 'c';
  }
  elsif ($native eq 'c++') {
    $native_module_ext = 'cpp';
  }
}
my $basic_test_native_module_rel_file = SPVM::Builder::Util::convert_class_name_to_rel_file("TestCase::$class_name", $native_module_ext);
$basic_test_native_module_rel_file = "t/lib/$basic_test_native_module_rel_file";
$self->generate_file($basic_test_native_module_rel_file, $basic_test_native_module_content);
}

sub generate_dist { my ($self) = @_;

my $class_name = $self->class_name;

my $native = $self->native;
my $resource = $self->resource;

my $class_name_rel_file = $class_name;
$class_name_rel_file =~ s|::|/|g;

# Generate output directory
my $output_dir = $self->output_dir;
$self->generate_dir($output_dir);

# Generate SPVM module file
unless ($resource) {
  $self->generate_spvm_module_file;
}

# Generate Perl module file
my $no_pm_file = $self->no_pm_file;
unless ($no_pm_file) {
  $self->generate_perl_module_file;
}

if ($native) {
  # Generate native config file
  $self->generate_native_config_file;
  
  # Generate native module file
  unless ($resource) {
    $self->generate_native_module_file;
  }
  
  # Generate ".gitkeep" file for native module include directory
  $self->generate_gitkeep_file_for_native_module_include_dir;
  
  # Generate ".gitkeep" file for native module src directory
  $self->generate_gitkeep_file_for_native_module_src_dir;
}

my $only_lib_file = $self->only_lib_files;
unless ($only_lib_file) {
  # Generate .gitignore file
  $self->generate_gitignore_file;
  
  # Generate MANIFEST.SKIP file
  $self->generate_manifest_skip_file;
  
  # Generate Changes file
  $self->generate_changes_file;
  
  # Generate README.md file
  $self->generate_readme_markdown_file;
  
  # Generate Makefile.PL file
  $self->generate_makefile_pl_file;
  
  # Generate t/basic.t file
  $self->generate_basic_test_file;

  # Generate basic test SPVM module file
  $self->generate_basic_test_spvm_module_file;

  if ($resource) {
    # Generate basic test native module file
    $self->generate_basic_test_native_module_file;

    # Generate basic test native config file
    $self->generate_basic_test_native_config_file;
  }
}
}

NAME

SPVM::Dist - Generating SPVM Distrubution

SYNOPSYS

my $dist = SPVM::Dist->new(
  class_name => 'Math',
);

$dist->generate_dist;

DESCRIPTION

SPVM::Dist generates a SPVM Distrubution.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 522:: Unknown E content in E<USER_MAIL>

To install SPVM, copy and paste the appropriate command in to your terminal.

cpanm

cpanm SPVM

CPAN shell

perl -MCPAN -e shell
install SPVM

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

NAME

SYNOPSYS

DESCRIPTION

STATIC METHODS

INSTANCE METHODS

REPOSITORY

BUG REPORT

SUPPORT

AUTHOR

COPYRIGHT & LICENSE

NAME

SYNOPSYS

DESCRIPTION

Module Install Instructions