File Coverage

blib/lib/Blockchain/Ethereum/Transaction/Legacy.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	3	4	75.0
condition	4	6	66.6
subroutine	8	8	100.0
pod	2	4	50.0
total	46	51	90.2

package Blockchain::Ethereum::Transaction::Legacy;

use v5.26;
use strict;
use warnings;

# ABSTRACT: Ethereum Legacy transaction abstraction
our $AUTHORITY = 'cpan:REFECO';    # AUTHORITY
our $VERSION   = '0.021';          # VERSION

use parent 'Blockchain::Ethereum::Transaction';

sub new {
    my ($class, %args) = @_;

    my $self = $class->SUPER::new(%args);

    foreach (qw( gas_price )) {
        $self->{$_} = $args{$_} if exists $args{$_};
    }

    bless $self, $class;
    return $self;
}

sub gas_price {
    return shift->{gas_price};
}

sub serialize {
    my $self = shift;

    my @params = (
        $self->nonce,    #
        $self->gas_price,
        $self->gas_limit,
        $self->to,
        $self->value,
        $self->data,
    );

    @params = $self->_normalize_params(\@params)->@*;

    if ($self->v && $self->r && $self->s) {
        push(@params, $self->v, $self->r, $self->s);
    } else {
        push(@params, $self->chain_id, '0x', '0x');
    }

    return $self->rlp->encode(\@params);
}

sub generate_v {
    my ($self, $y_parity) = @_;

    my $v = sprintf("0x%x", (hex $self->chain_id) * 2 + 35 + $y_parity);

    $self->set_v($v);
    return $v;
}

1;

__END__