File Coverage

blib/lib/SPVM/Builder/Config/Exe.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch	10	14	71.4
condition			n/a
subroutine	11	11	100.0
pod	4	5	80.0
total	72	77	93.5

package SPVM::Builder::Config::Exe;

use strict;
use warnings;
use Carp 'confess';

use SPVM::Builder::Util;
use SPVM::Builder::Util::API;

# Inheritance
use base 'SPVM::Builder::Config';

# Fields
sub before_each_compile_cbs {
  my $self = shift;
  if (@_) {
    $self->{before_each_compile_cbs} = $_[0];
    return $self;
  }
  else {
    return $self->{before_each_compile_cbs};
  }
}

sub config_spvm_core {
  my $self = shift;
  if (@_) {
    $self->{config_spvm_core} = $_[0];
    return $self;
  }
  else {
    return $self->{config_spvm_core};
  }
}

sub config_bootstrap {
  my $self = shift;
  if (@_) {
    $self->{config_bootstrap} = $_[0];
    return $self;
  }
  else {
    return $self->{config_bootstrap};
  }
}

# Class Methods
sub new {
  my ($self, %fields) = @_;

  unless (defined $fields{output_type}) {
    $fields{output_type} = 'exe';
  }

  $self = $self->SUPER::new(%fields);

  unless (defined $self->before_each_compile_cbs) {
    $self->before_each_compile_cbs([]);
  }

  unless (defined $self->config_spvm_core) {
    $self->config_spvm_core(SPVM::Builder::Util::API::create_default_config());
  }

  unless (defined $self->config_bootstrap) {
    $self->config_bootstrap(SPVM::Builder::Util::API::create_default_config());
  }

  return $self;
}

# Instance Methods
sub add_before_each_compile_cb {
  my ($self, @before_each_compile_cbs) = @_;

  push @{$self->{before_each_compile_cbs}}, @before_each_compile_cbs;
}

1;

=head1 Name

SPVM::Builder::Config::Exe - Configurations of creating excutable files.

=head1 Description

The SPVM::Builder::Config::Exe class has methods to manipulate a config to generate an excutable file using L.

=head1 Usage

  use SPVM::Builder::Config::Exe;

  my $config_exe = SPVM::Builder::Config::Exe->new_gnu99;

=head1 Inheritance

=over 2

=item * L

=back

=head1 Fields

=head2 config_spvm_core

  my $config_exe_spvm_core = $config_exe->config_spvm_core;
  $config_exe->config_spvm_core($config_exe_spvm_core);

Gets and sets the C field.

This field is a L object for SPVM core source files.

=head2 config_bootstrap

  my $config_exe_bootstrap = $config_exe->config_bootstrap;
  $config_exe->config_bootstrap($config_exe_bootstrap);

Gets and sets the C field.

This field is a L object for the bootstrap source file that contains C function in the C language for the executable file.

=head1 Methods

=head2 new

  my $config_exe = SPVM::Builder::Config::Exe->new(%fields);

Create a new C object with L.

This method calls the C method of the L before the own operations of this method.

Default Field Values:

If a field is not defined, the field is set to the following default value.

=over 2

=item * L

"exe"

=item * L

[]

=item * L

The return value of the L function of the L class.

=item * L

The return value of the L function of the L class.

=back

=head2 add_before_each_compile_cb

  $config_exe->add_before_compile_cb(@before_each_compile_cbs);

Adds elements after the last element of the L field.

=head1 Copyright & License

Copyright (c) 2023 Yuki Kimoto

MIT License