File Coverage

lib/Finance/Dogechain/Transaction.pm

Criterion	Covered	Total	%
statement	6	25	24.0
branch			n/a
condition			n/a
subroutine	2	6	33.3
pod	3	4	75.0
total	11	35	31.4

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

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

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

    return $tx;
};

sub inputs($self) {
    return $self->transaction->{inputs};
}

sub outputs($self) {
    return $self->transaction->{outputs};
}

sub convert_addresses_in_place(@items) {
    while (my $items = shift @items) {
        for my $item (@$items) {
            say $item->{address};
            $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__