File Coverage

blib/lib/Math/NumberBase/XS.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	10	10	100.0
condition	5	5	100.0
subroutine	11	11	100.0
pod	8	8	100.0
total	70	70	100.0

package Math::NumberBase::XS;

use 5.008;
use strict;
use warnings;

require XSLoader;
our $VERSION = '0.0202';

XSLoader::load('Math::NumberBase::XS', $VERSION);

sub new {
  my ($class, $base, $symbols) = @_;

  $base //= 10;
  die '$base must be an integer >= 2' if $base < 2 || int($base) != $base;

  my @symbols_array = defined $symbols
    ? split //, $symbols
    : do {
        die 'Cannot auto determine symbols for base > 36' if $base > 36;
        my @numalpha = (0 .. 9, 'a' .. 'z');
        splice @numalpha, 0, $base;
    };

  my %symbol_value_map = map { $symbols_array[$_] => $_ } 0 .. $#symbols_array;

  die 'Symbols length must match base' if @symbols_array != $base;
  die 'Symbols contain duplicates' if keys(%symbol_value_map) != @symbols_array;

  my $self = bless {}, $class;
  $self->_init($base, \@symbols_array, \%symbol_value_map);

  return $self;
}

sub get_base {
  my ($self) = @_;
  return $self->_get_base();
}

sub get_symbols {
  my ($self) = @_;
  return $self->_get_symbols();
}

sub get_symbol_value_map {
  my ($self) = @_;
  return $self->_get_symbol_value_map();
}

sub to_decimal {
  my ($self, $string) = @_;
  return $self->_to_decimal($string);
}

sub from_decimal {
  my ($self, $in_decimal) = @_;
  return $self->_from_decimal($in_decimal);
}

sub convert_to {
  my ($self, $string, $number_base) = @_;
  return $number_base->from_decimal($self->to_decimal($string));
}

sub convert_from {
  my ($self, $string, $number_base) = @_;
  return $self->from_decimal($number_base->to_decimal($string));
}

1;

__END__