Yet Another CPAN Grep

WebService-BambooHR ( N/NE/NEILB/WebService-BambooHR-0.07.tar.gz, NEILB, 2016; MetaCPAN )

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

use Moo           2.000000;
use HTTP::Tiny    0.045;
use Try::Tiny     0.13;
use JSON::MaybeXS 1.003003 qw/ decode_json /;

with 'WebService::BambooHR::UserAgent';
use WebService::BambooHR::Employee;

 .qq{\n</fields>\n</report>\n};
    my $response = $self->_post('reports/custom?format=json', $body);
    my $json     = $response->{content};

    # Workaround for a issues in BambooHR:
    #   - if

r field '1610' you get back '1610.0'
    $json =~ s/"employmentStatus":/"status":/g;
    $json =~ s/"1610.0":/"1610":/g;

    my $report   = decode_json($json);
    return map { WebService::BambooHR::

WebService-BambooHR ( N/NE/NEILB/WebService-BambooHR-0.07.tar.gz, NEILB, 2016; MetaCPAN )

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

y $auth     = encode_base64($self->api_key.':x', '');
    my $headers  = { Accept => 'application/json', 'Authorization' => "Basic $auth" };
    my $response = $ua->request('GET', $full_url, { headers

y $auth     = encode_base64($self->api_key.':x', '');
    my $headers  = { Accept => 'application/json', 'Authorization' => "Basic $auth" };
    my $response = $ua->request('POST', $full_url, { header