view release on metacpan or  search on metacpan

lib/App/indodax.pm  view on Meta::CPAN

use App::cryp::Exchange::indodax;

our %Canonical_Currencies = (map {lc} %{ App::cryp::Exchange::indodax->data_canonical_currencies });
our %Rev_Canonical_Currencies = (map {lc} %{ App::cryp::Exchange::indodax->data_reverse_canonical_currencies });

our @Markets = qw(idr btc);

our @Market_Pairs = (map {
    my $canon = $_->{name};
    my ($basecur, $quotecur) = split m!/!, $canon;
    lc($basecur) . '_' . lc($quotecur);
} @{ App::cryp::Exchange::indodax->data_pairs });

our @Currencies = do {
    my %res;
    for (@Market_Pairs) { /\A(\w+)_(\w+)\z/ or die; $res{$1}++; $res{$2}++ }
    sort keys %res;
};
our @Idr_Market_Currencies = do {
    my %res;