File Coverage

blib/lib/Web3/Tiny.pm

Criterion	Covered	Total	%
statement	18	40	45.0
branch	0	2	0.0
condition			n/a
subroutine	6	17	35.2
pod	0	11	0.0
total	24	70	34.2

package Web3::Tiny;

use strict;
use warnings;

use Web3::Tiny::RPC;
use Web3::Tiny::Wallet;
use Web3::Tiny::Contract;
use Web3::Tiny::Util qw(hex_to_bigint);

our $VERSION = '0.01';

# Web3::Tiny->new(rpc_url => 'https://...')
sub new {
    my ($class, %opts) = @_;
    die "Web3::Tiny: 'rpc_url' is required\n" unless $opts{rpc_url};

    return bless {
        rpc => Web3::Tiny::RPC->new(url => $opts{rpc_url}, timeout => $opts{timeout}),
    }, $class;
}

sub rpc { return $_[0]->{rpc} }

# wallet(private_key => '0x...') -> Web3::Tiny::Wallet
sub wallet {
    my ($self, %opts) = @_;
    return Web3::Tiny::Wallet->new(%opts);
}

# contract(address => '0x...', abi => { ... }) -> Web3::Tiny::Contract
sub contract {
    my ($self, %opts) = @_;
    return Web3::Tiny::Contract->new(%opts, rpc => $self->{rpc});
}

# get_balance('0x...') -> Math::BigInt (wei)
sub get_balance {
    my ($self, $address) = @_;
    return hex_to_bigint($self->{rpc}->call('eth_getBalance', $address, 'latest'));
}

# transaction_count('0x...') -> Math::BigInt (nonce)
sub transaction_count {
    my ($self, $address) = @_;
    return hex_to_bigint($self->{rpc}->call('eth_getTransactionCount', $address, 'latest'));
}

# gas_price() -> Math::BigInt (wei)
sub gas_price {
    my ($self) = @_;
    return hex_to_bigint($self->{rpc}->call('eth_gasPrice'));
}

# chain_id() -> Math::BigInt
sub chain_id {
    my ($self) = @_;
    return hex_to_bigint($self->{rpc}->call('eth_chainId'));
}

# block_number() -> Math::BigInt
sub block_number {
    my ($self) = @_;
    return hex_to_bigint($self->{rpc}->call('eth_blockNumber'));
}

# send_raw_transaction('0x...') -> '0x...' transaction hash
sub send_raw_transaction {
    my ($self, $raw_tx) = @_;
    return $self->{rpc}->call('eth_sendRawTransaction', $raw_tx);
}

# transaction_receipt('0x...') -> hashref or undef if not yet mined
sub transaction_receipt {
    my ($self, $tx_hash) = @_;
    return $self->{rpc}->call('eth_getTransactionReceipt', $tx_hash);
}

1;

__END__