File Coverage

blib/lib/SPVM/ExchangeAPI/Class.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	7	85.7
pod			n/a
total	31	40	77.5

package SPVM::ExchangeAPI::Class;
use strict;
use warnings;

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

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

# Class Methods
sub __new {
  my $class = shift;

  my $self = {@_};

  bless $self, ref $class || $class;

  return $self;
}

our $AUTOLOAD;
sub AUTOLOAD {
  my $self = shift;

  my $basic_type_name = $self->__name;

  my $method_name = $AUTOLOAD;
  $method_name =~ s/^SPVM::ExchangeAPI::Class:://;

  my $ret = $self->__api->call_method($basic_type_name, $method_name, @_);

  return $ret;
}

sub DESTROY {}

1;

=head1 Name

SPVM::ExchangeAPI::Class - Class Object

=head1 Description

C is a class object to call class methods.

=head1 Usage

  # The same as the Int->__new(1) in SPVM language
  my $class = SPVM::ExchangeAPI::Class->__new(__name => 'Int', __api => $api);
  my $value = $class->new(1);

Create a class object using the L method in the L class:

  my $class = $api->class('Int');
  $class->new(1);

=head1 Fields

=head2 __name

  my $name = $self->__name;
  $self->__name($name);

Gets and sets a class name.

=head2 __api

  my $api = $self->__api;
  $self->__api($api);

Gets and sets a L object.

=head1 Class Methods

=head2 __new

  my $class = SPVM::ExchangeAPI::Class->__new(%options);

Creates a new C object.

Options:

=over 2

=item * C<__name> : string

A class name

=item * C<__api> : SPVM::ExchangeAPI

A L object

=back

=head1 Instance Methods

=head2 AUTOLOAD

  $class->foo(@args);

Calls L method in the L class using the L field and the method name given in the C method.

=head1 Copyright & License

Copyright (c) 2023 Yuki Kimoto

MIT License