File Coverage

blib/lib/Blockchain/Contract/Solidity/ABI/Type/Int.pm
Criterion Covered Total %
statement 43 43 100.0
branch 12 12 100.0
condition 10 12 83.3
subroutine 11 11 100.0
pod 0 3 0.0
total 76 81 93.8


line stmt bran cond sub pod time code
1             package Blockchain::Contract::Solidity::ABI::Type::Int;
2              
3 5     5   2817 use v5.26;
  5         18  
4 5     5   26 use strict;
  5         12  
  5         109  
5 5     5   23 use warnings;
  5         12  
  5         112  
6 5     5   23 no indirect;
  5         13  
  5         33  
7              
8 5     5   259 use Carp;
  5         15  
  5         388  
9 5     5   7191 use Math::BigInt;
  5         181049  
  5         27  
10 5     5   135620 use parent qw(Blockchain::Contract::Solidity::ABI::Type);
  5         26  
  5         47  
11              
12 5     5   483 use constant DEFAULT_INT_SIZE => 256;
  5         14  
  5         3130  
13              
14             sub encode {
15 87     87 0 178 my $self = shift;
16 87 100       194 return $self->encoded if $self->encoded;
17              
18 39         110 my $bdata = Math::BigInt->new($self->data);
19              
20 39 100       3698 croak "Invalid numeric data @{[$self->data]}" if $bdata->is_nan;
  1         13  
21              
22 38 100 66     279 croak "Invalid data length, signature: @{[$self->fixed_length]}, data length: @{[$bdata->length]}"
  1         4  
  1         3  
23             if $self->fixed_length && $bdata->length > $self->fixed_length;
24              
25 37 100 66     137 croak "Invalid negative numeric data @{[$self->data]}"
  2         8  
26             if $bdata->is_neg && $self->signature =~ /^uint|bool/;
27              
28 35 100 100     281 croak "Invalid bool data it must be 1 or 0 but given @{[$self->data]}"
  1   100     15  
29             if !$bdata->is_zero && !$bdata->is_one && $self->signature =~ /^bool/;
30              
31 34         359 $self->push_static($self->pad_left($bdata->to_hex));
32              
33 34         105 return $self->encoded;
34             }
35              
36             sub decode {
37 14     14 0 24 my $self = shift;
38 14         34 return Math::BigInt->from_hex($self->data->[0]);
39             }
40              
41             sub fixed_length {
42 77     77 0 761 my $self = shift;
43 77 100       189 if ($self->signature =~ /[a-z](\d+)/) {
44 59         306 return $1;
45             }
46 18         76 return DEFAULT_INT_SIZE;
47             }
48              
49             1;
50