view release on metacpan or  search on metacpan

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

=head1 NAME

Amazon::Site - A class to represent an Amazon site

=head1 SYNOPSIS

  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';

class Amazon::Site;

our $VERSION = '0.1.10';

field $code :param;
field $country :param;
field $tldn :param;
field $currency :param;
field $sort :param;
field $assoc_code :param = '';

=head1 METHODS

=head2 new

Creates a new Amazon::Site object.

=head3 Parameters

=over 4

=item code

The two-letter country code.

=item country

The country name.

=item tldn

The top-level domain name.

=item currency

The currency code.

=item sort

The sort order. Used by Amazon::Sites to sort the sites.

=item assoc_code

The optional Amazon Associate code for this site.

=back

=head2 code