Tarantool\Client\Packer\Extension\DecimalExtension

Complexity

Total Complexity

10

Size/Duplication

Total Lines	56
Duplicated Lines	0 %

Test Coverage

Coverage

70%

Importance

Changes	1
Bugs	0	Features	0

3 Methods

Rating	Name	Duplication	Size	Complexity
A	getType()	0	3	1
A	unpackExt()	0	17	4
A	pack()	0	26	5

<?php

/**
 * This file is part of the Tarantool Client package.
 *
 * (c) Eugene Leonovich <gen.work@gmail.com>
 *
 * For the full copyright and license information, please view the LICENSE
 * file that was distributed with this source code.
 */

declare(strict_types=1);

namespace Tarantool\Client\Packer\Extension;

use Decimal\Decimal;

The type Decimal\Decimal was not found. Maybe you did not declare it correctly or list all dependencies?

use MessagePack\BufferUnpacker;
use MessagePack\Packer;
use MessagePack\TypeTransformer\Extension;

class DecimalExtension implements Extension
{
    private const TYPE = 1;
    private const PRECISION = 38;

    public function getType() : int
    {
        return self::TYPE;
    }

    public function pack(Packer $packer, $value) : ?string
    {
        if (!$value instanceof Decimal) {
            return null;
        }

        // @see https://github.com/php-decimal/ext-decimal/issues/22#issuecomment-512364914
        $data = $value->toFixed(self::PRECISION);

        if ('-' === $data[0]) {
            $nibble = 'd';
            $data = \substr($data, 1);
        } else {
            $nibble = 'c';
        }

        $pieces = \explode('.', $data, 2);
        $pieces[1] = \rtrim($pieces[1], '0');

        $data = "{$pieces[0]}{$pieces[1]}{$nibble}";
        if (0 !== \strlen($data) % 2) {
            $data = '0'.$data;
        }

        return $packer->packExt(self::TYPE,
            $packer->packInt(empty($pieces[1]) ? 0 : \strlen($pieces[1])).\hex2bin($data)
        );
    }

    public function unpackExt(BufferUnpacker $unpacker, int $extLength)
    {
        $scale = $unpacker->unpackInt();
        $data = $unpacker->read($extLength - 1);
        $data = \bin2hex($data);

        $sign = 'd' === $data[-1] ? '-' : '';
        $dec = \substr($data, 0, -1);

        if (0 !== $scale) {
            $length = \strlen($dec);
            $dec = ($length <= $scale)
                ? \substr_replace($dec, '0.'.\str_repeat('0', $scale - $length), -$scale, 0)
                : \substr_replace($dec, '.', -$scale, 0);
        }

        return new Decimal($sign.$dec, self::PRECISION);
    }
}