Yet Another CPAN Grep

WebService-Pingboard ( R/RC/RCL/WebService-Pingboard-0.009.tar.gz, RCL, 2016; MetaCPAN )

WebService-Pingboard/lib/WebService/Pingboard.pm ( view source; MetaCPAN )

s::Validate;
use MooseX::WithCache;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
use JSON;
use Class::Date qw/gmdate/;
use POSIX; #strftime
use YAML qw/Dump LoadFile DumpFile/;
use Encode

h = HTTP::Headers->new();
    $h->header( 'Content-Type'	=> "application/json" );
    $h->header( 'Accept'	=> "application/json" );

    my $data;
    #Only password flow allows refresh tokens
    if(

TP::Headers->new();
        $h->header( 'Content-Type'	=> "application/json" );
        $h->header( 'Accept'	=> "application/json" );
        $h->header( 'Authorization' => "Bearer " . $self->valid_ac