view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

[![Kwality](https://cpants.cpanauthors.org/release/DAVECROSS/Amazon-Sites.svg "Kwality")](https://cpants.cpanauthors.org/release/DAVECROSS/Amazon-Sites)

## Example

    use Amazon::Sites;

    my $az = Amazon::Sites->new;

    my $az_uk = $az->site('UK');

    say $az_uk->currency; # GBP
    say $az_uk->tldn;     # co.uk
    say $az_uk->domain;   # amazon.co.uk

For more documentation visit:

* https://metacpan.org/pod/Amazon::Sites

Or run `perldoc Amazon::Sites` once you have installed the module.

## Installation

The traditional way to install a Perl module is to download the latest zipped

lib/Amazon/Site.pm  view on Meta::CPAN

  use Amazon::Site;

  my $site = Amazon::Site->new(
    code     => 'UK',
    country  => 'United Kingdom',
    tldn     => 'co.uk',
    currency => 'GBP',
    sort     => 1,
  );

  say $site->tldn;   # co.uk
  say $site->domain; # amazon.co.uk
  say $site->asin_url('XXXXXXX'); # https://amazon.co.uk/dp/XXXXXXX

=cut

use strict;
use warnings;

use Feature::Compat::Class;

use feature 'signatures';
no warnings 'experimental::signatures';

lib/Amazon/Sites.pm  view on Meta::CPAN

=head1 SYNOPSIS

  use Amazon::Sites;

  my $sites = Amazon::Sites->new;
  my @sites = $sites->sites;
  my %sites = $sites->sites_hash;
  my @codes = $sites->codes;

  my $site  = $sites->site('UK');
  say $site->currency; # GBP
  say $site->tldn;     # co.uk
  # etc

  my %urls = $sites->asin_urls('XXXXXXX');
  say $urls{UK}; # https://amazon.co.uk/dp/XXXXXXX
  # etc

=head1 DESCRIPTION

A simple class that encapsulates information about Amazon sites.

=cut

use strict;
use warnings;