File Coverage

blib/lib/Paws/Net/SigninCaller.pm

Criterion	Covered	Total	%
statement	9	28	32.1
branch	0	6	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	1	0.0
total	12	40	30.0

package Paws::Net::SigninCaller;
  use Moose::Role;
  use JSON::MaybeXS;
  use URI::Template;

  sub _call_uri {
    my ($self, $call, $qparams) = @_;
    my $uri_template = $call->meta->name->_api_uri;
    my $t = URI::Template->new( $uri_template );

    my $uri = $t->process({});
    $uri->query_form(%$qparams);
    return $uri->as_string;
  }

  sub prepare_request_for_call {
    my ($self, $call) = @_;

    my $request = Paws::Net::APIRequest->new();

    $request->method('GET');

    my $qparams;
    if ($call->_api_call eq 'getSigninToken') {
      #Until we have a way to declare objects that get json-encoded to API calls, we
      #will have to "hand-encode" the Session Parameter
      $qparams = { Action => $call->_api_call,
                   SessionType => 'json',
                   (defined $call->SessionDuration)?(SessionDuration => $call->SessionDuration):(),
                   Session => encode_json({
                     sessionId    => $call->SessionId,
                     sessionKey   => $call->SessionKey,
                     sessionToken => $call->SessionToken
                   }),
      };
    } elsif ($call->_api_call eq 'login') {
       $qparams = { Action => $call->_api_call,
                    Destination => $call->Destination,
                    Issuer => $call->Issuer,
                    SigninToken => $call->SigninToken
	          };
    } else {
      die "Don't know how to call " . $call->_api_call;
    }

    my $uri = $self->_call_uri($call, $qparams);
    $request->url($self->_api_endpoint . $uri);
    $request->uri($uri);

    $self->sign($request);

    return $request;
  }
1;