sub request { my ($self, $request, @rest) = @_; return $self->access_token->request($self, $request, @rest); # <- line 107 } sub access_token { my $self = shift; return $self->{access_token}; }