File Coverage

blib/lib/REFECO/Blockchain/Contract/Solidity/ABI/Type/Address.pm
Criterion Covered Total %
statement 21 21 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 30 32 93.7


line stmt bran cond sub pod time code
1              
2             use strict;
3 3     3   2481 use warnings;
  3         8  
  3         86  
4 3     3   14 no indirect;
  3         6  
  3         78  
5 3     3   14  
  3         6  
  3         17  
6             use Carp;
7 3     3   126 use parent qw(REFECO::Blockchain::Contract::Solidity::ABI::Type);
  3         22  
  3         197  
8 3     3   16  
  3         7  
  3         16  
9             my $self = shift;
10             return $self->encoded if $self->encoded;
11 16     16 0 33 $self->push_static($self->pad_left(substr($self->data, 2)));
12 16 100       37  
13 8         22 return $self->encoded;
14             }
15 8         47  
16             my $self = shift;
17             return '0x' . substr $self->data->[0], -40;
18             }
19 8     8 0 12  
20 8         18 1;
21