fix bug in token-refresh (Ruud)

1 files changed, 5 insertions, 2 deletions

diff --git a/lib/LWP/Authen/OAuth2.pm b/lib/LWP/Authen/OAuth2.pm
index bb20524..944758b 100644
--- a/lib/LWP/Authen/OAuth2.pm
+++ b/lib/LWP/Authen/OAuth2.pm
@@ -216,9 +216,12 @@ sub refresh_access_token {
             if (not (ref($tokens))) {
                 # Did I get JSON?
                 my $data = eval {decode_json($tokens)};
+
                 if ($data and not $@) {
-                    # Assume I got it.
-                    $tokens = $data;
+                    my $class = $data->{_class} or croak("No _class in token_string '$tokens'");
+                    eval {load($class)};
+                    if ($@) { croak("Can't load access token class '$class': $@"); }
+                    $tokens = $class->from_ref($data);
                 }
             }
             return $self->_set_tokens(tokens => $tokens, skip_save => 1);