File Coverage

lib/Finance/Dogechain/Transaction.pm

Criterion	Covered	Total	%
statement	6	24	25.0
branch	0	2	0.0
condition			n/a
subroutine	2	5	40.0
pod	2	3	66.6
total	10	34	29.4

package Finance::Dogechain::Transaction;
$Finance::Dogechain::Transaction::VERSION = '1.20210418.2306';
use Mojo::Base -base, -signatures, 'Finance::Dogechain::Base';
use Finance::Dogechain::Address;

has 'tx_id';

sub transaction($self) {
    my $tx = $self->return_field_if_success( '/transaction/' . $self->tx_id, 'transaction' );

    if ($tx) {
        $self->convert_addresses_in_place( $tx->{inputs}, $tx->{outputs} );
    }

    return $tx;
}

sub convert_addresses_in_place($self, @items) {
    while (my $items = shift @items) {
        for my $item (@$items) {
            $item->{address} = Finance::Dogechain::Address->new( address => $item->{address} );
        }
    }
}

sub TO_JSON($self) {
    return '[Finance::Dogechain::Transaction](tx_id => ' . $self->tx_id . ')';
}

'to the moon';
__END__