distribution Net-OAuth2-0.58.tar.gz

Changes

@@ -2,6 +2,11 @@
 === Version history of Net::OAuth2
 All changes by Mark Overmeer unless noted otherwise.
 
+version 0.58: Wed May 28 23:17:09 CEST 2014
+
+	Improvements:
+	- generic accessor of ::AccessToken via attribute() [Sergey Lobanov]
+
 version 0.57: Mon Mar 24 09:33:07 CET 2014
 
 	Fixes:

Makefile.PL

@@ -3,7 +3,7 @@ use ExtUtils::MakeMaker;
 
 WriteMakefile
   ( NAME        => 'Net::OAuth2'
-  , VERSION     => '0.57'
+  , VERSION     => '0.58'
   , PREREQ_PM   =>
      { Test::More => 0
      , YAML => 0

lib/Net/OAuth2/AccessToken.pm

@@ -129,6 +129,8 @@ sub init($)
     $self->{NOA_error}         = $args->{error};
     $self->{NOA_error_uri}     = $args->{error_uri};
     $self->{NOA_error_descr}   = $args->{error_description} || $args->{error};
+
+    $self->{NOA_attr}          = $args;
     $self;
 }
 
@@ -172,6 +174,14 @@ sub token_type() {shift->{NOA_token_type}}
 sub scope()      {shift->{NOA_scope}}
 sub profile()    {shift->{NOA_profile}}
 
+=method attribute NAME
+[0.58] Sometimes, the token gets attributes which are not standard; they
+have no official accessor (yet?).  You can get them with this generic
+accessor.
+=cut
+
+sub attribute($) { $_[0]->{NOA_attr}{$_[1]} }
+
 =method changed [BOOLEAN]
 [0.52] The session (token) needs to be saved, because any of the crucial
 parameters have been modified and C<auto_save> is not defined by