File Coverage

blib/lib/Blockchain/Ethereum/ABI/Decoder.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	1	2	50.0
condition	0	2	0.0
subroutine	10	10	100.0
pod	2	3	66.6
total	48	52	92.3

package Blockchain::Ethereum::ABI::Decoder;

use v5.26;
use strict;
use warnings;

# ABSTRACT: ABI utility for decoding ethereum contract arguments
our $AUTHORITY = 'cpan:REFECO';    # AUTHORITY
our $VERSION   = '0.021';          # VERSION

use Carp;

use Blockchain::Ethereum::ABI::Type;
use Blockchain::Ethereum::ABI::Type::Tuple;

sub new {
    my $class = shift;
    my $self  = {
        instances => [],
    };

    return bless $self, $class;
}

sub append {
    my ($self, $param) = @_;

    push $self->{instances}->@*, Blockchain::Ethereum::ABI::Type->new(signature => $param);
    return $self;
}

sub decode {
    my ($self, $hex_data) = @_;

    croak 'Invalid hexadecimal value ' . $hex_data // 'undef'
        unless $hex_data =~ /^(?:0x|0X)?([a-fA-F0-9]+)$/;

    my $hex  = $1;
    my @data = unpack("(A64)*", $hex);

    my $tuple = Blockchain::Ethereum::ABI::Type::Tuple->new;
    $tuple->{instances} = $self->{instances};
    $tuple->{data}      = \@data;
    my $data = $tuple->decode;

    $self->_clean;
    return $data;
}

sub _clean {
    my $self = shift;

    $self->{instances} = [];
}

1;

__END__