view release on metacpan or  search on metacpan

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

=cut

method sites {
  my @sites = sort {
    $a->sort <=> $b->sort;
  } values %sites;

  return @sites;
}

sub _init_sites($assoc_codes, $include, $exclude) {
  my %sites;
  my @cols = qw[code country tldn currency sort];

  my $where = tell DATA;

  while (<DATA>) {
    chomp;
    my %site;
    @site{@cols} = split /\t/;