view release on metacpan or  search on metacpan

lib/Finance/MtGox.pm  view on Meta::CPAN

sub _key {
    my ($self) = @_;
    return $self->{key};
}

sub _secret {
    my ($self) = @_;
    return $self->{secret};
}

# build a URI object for the endpoint of an API call
sub _build_api_method_uri {
    my ( $self, $version, $name, $prefix ) = @_;
    my $version_url_token = "api/" . $version;

    $prefix = $prefix ? "$prefix/" : '';
    return URI->new($version == 0 ?
                    "https://mtgox.com/$version_url_token/$prefix$name.php"
                    : "https://data.mtgox.com/$version_url_token/$prefix$name");
}