$ # make a copy of the module so I don't mess it up
$ cp /home/shoples1/perl5/lib/perl5/LWP/Authen/OAuth2.pm foo.pm
$ vi /home/shoples1/perl5/lib/perl5/LWP/Authen/OAuth2.pm
 . . . edit the request subroutine to look like:
sub request {
    my ($self, $request, @rest) = @_;
    use Data::Dumper;
    my $temp = $self->access_token;
    print "access token is: ", Dumper($temp), "\n";
    return $temp->request($self, $request, @rest);
}
$ # run the project so I can see what I'm looking for
$ perl t.pl
blah, blah, blah
access token is:$VAR1 = bless( {
                 'baz' => 'boom',
                 'foo' => 'bar'
               }, 'Barsoom!' );

blah, blah, blah
$ # put things back so I don't cause more problems for myself
$ cp foo.pm /home/shoples1/perl5/lib/perl5/LWP/Authen/OAuth2.pm