File Coverage

lib/Finance/Dogechain/Block.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	1	3	33.3
total	9	27	33.3

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

has 'block_id';
has 'block', sub($self) {
    my $block = $self->return_field_if_success( '/block/' . $self->block_id, 'block' );

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

    return $block;
};

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

sub transactions($self) {
    return $self->block->{txs};
}

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

'to the moon';
__END__