File Coverage

blib/lib/Net/Google/DataAPI/Auth/AuthSub.pm
Criterion Covered Total %
statement 12 16 75.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 22 72.7


line stmt bran cond sub pod time code
1             package Net::Google::DataAPI::Auth::AuthSub;
2 5     5   141188 use Any::Moose;
  5         9  
  5         23  
3             with 'Net::Google::DataAPI::Role::Auth';
4 5     5   3286 use Net::Google::AuthSub;
  5         42928  
  5         127  
5 5     5   26 use URI;
  5         9  
  5         472  
6             our $VERSION = '0.03';
7              
8             has authsub => (
9             is => 'ro',
10             isa => 'Net::Google::AuthSub',
11             required => 1,
12             );
13              
14             sub sign_request {
15 0     0 0   my ($self, $req) = @_;
16 0           $self->authsub->{_compat}->{uncuddled_auth} = 1;
17 0           $req->header($self->authsub->auth_params);
18 0           return $req;
19             }
20              
21             __PACKAGE__->meta->make_immutable;
22              
23 5     5   20 no Any::Moose;
  5         8  
  5         33  
24              
25             1;