[Perl]Net::Amazon

Cache を使う
Cache::File と共に使用することで何度も同じデータを取得するようなことがある場合には処理速度を向上させられる。

my $cache = Cache::File->new(
  cache_root => 'd:/home/cache',
  lock_level => Cache::File::LOCK_LOCAL(),
  default_expire => '24 hours',
);
my $ua = Net::Amazon->new(
  token => '000000000000',
  locale => 'jp',
  cache => $cache,
);