view release on metacpan or  search on metacpan

t/01-signature4-lite.t  view on Meta::CPAN

########################################################################
# parse_service_url
########################################################################

subtest 'parse_service_url' => sub {
  # class method call
  my @r = Amazon::Signature4::Lite->parse_service_url(
    host           => 's3.amazonaws.com',
    default_region => 'us-east-1',
  );
  is $r[1], 's3',        's3 global endpoint — service';
  is $r[2], 'us-east-1', 's3 global endpoint — falls back to default region';

  # regional S3
  @r = Amazon::Signature4::Lite->parse_service_url(
    host           => 's3.us-east-2.amazonaws.com',
    default_region => 'us-east-1',
  );
  is $r[1], 's3',        'regional S3 — service';
  is $r[2], 'us-east-2', 'regional S3 — region extracted';

  # non-S3 service