File Coverage

blib/lib/Blockchain/Ethereum/ABI/Type/Address.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	31	31	100.0

package Blockchain::Ethereum::ABI::Type::Address;

use v5.26;
use strict;
use warnings;

use Carp;
use parent qw(Blockchain::Ethereum::ABI::Type);

sub encode {
    my $self = shift;
    return $self->_encoded if $self->_encoded;
    $self->_push_static($self->pad_left(substr($self->_data, 2)));

    return $self->_encoded;
}

sub decode {
    my $self = shift;
    return '0x' . substr $self->_data->[0], -40;
}

1;

__END__