File Coverage

lib/Finance/Dogechain/Block.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::Block;
$Finance::Dogechain::Block::VERSION = '1.20210418.2306';
use Mojo::Base -base, -signatures, 'Finance::Dogechain::Base';
use Finance::Dogechain::Transaction;

has 'block_id';

sub block($self) {
    my $block = $self->return_field_if_success( '/block/' . $self->block_id, 'block' );
    say JSON->new->pretty->encode( $block );

    if ($block) {
        $self->convert_transactions_in_place( $block->{txs} );
    }

    return $block;
}

sub convert_transactions_in_place($self, $txs) {
    while (my ($i, $tx_id) = each @$txs) {
        $txs->[$i] = Finance::Dogechain::Transaction->new( tx_id => $tx_id );
    }
}

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

'to the moon';
__END__