File Coverage

blib/lib/Ethereum/RPC/Contract/ContractResponse.pm

Criterion	Covered	Total	%
statement	18	34	52.9
branch	0	10	0.0
condition			n/a
subroutine	6	10	60.0
pod	4	4	100.0
total	28	58	48.2

package Ethereum::RPC::Contract::ContractResponse;

use strict;
use warnings;

our $VERSION = '0.04';

=head1 NAME

    Ethereum::Contract::RPC::ContractResponse - Centralize contract response

=cut

use Moo;
use Encode;
use Math::BigInt;
use Math::BigFloat;

has response => (is => 'ro');

=head2 to_big_int

Convert response to a Math::BigInt if not undef

Parameters:
    hexadecimal response

Return:
    new Math::BigInt

=cut

sub to_big_int {
    my $self = shift;
    return Math::BigInt->from_hex($self->response) if $self->response;
    return undef;
}

=head2 to_big_float

Convert response to a Math::BigFloat if not undef

Parameters:
    hexadecimal response

Return:
    new Math::BigFloat

=cut

sub to_big_float {
    my $self = shift;
    return Math::BigFloat->from_hex($self->response) if $self->response;
    return undef;
}

=head2 to_string

Convert response to a string if not undef

Parameters:
    hexadecimal response

Return:
    string

=cut

sub to_string {
    my $self = shift;

    return undef unless $self->response;

    my $packed_response = pack('H*', substr($self->response, -64));
    $packed_response =~ s/\0+$//;

    return $packed_response;
}

=head2 to_hex

Convert response to a hexadecimal if not undef and is not already a hex

Parameters:
    hexadecimal response

Return:
    hexadecimal string

=cut

sub to_hex {
    my $self = shift;

    return undef unless $self->response;

    if ($self->response =~ /^0x[0-9A-F]+$/i) {
        return $self->response;
    }

    return undef;
}

1;