TSHEETS API calls from Perl

example_jobcodes.pl

#!/usr/bin/perl
# This example shows how to connect to the Tsheets API using Perl
#

use HTTP::Request::Common;
use LWP::UserAgent;
use JSON;
use Data::Dumper;

# Here's an example query to the API that reports the JSON jobcodes result into a hash array
example_query(); # list jobcodes

sub example_query {
  # connect with the tokenized HTTP header
  my $req = HTTP::Request->new( 'GET' => "https://rest.tsheets.com/api/v1/jobcodes" );
  $req->header( 'Authorization' => 'Bearer <Access Token>'); # use your API-created user token

  # get the server response
  my $lwp = LWP::UserAgent->new;
  my $response  = $lwp->request($req);
 
  # parse response into JSON string
  my $results = JSON->new;
  my $json = $results->pretty->encode($results->decode($response->decoded_content ));

  # decode JSON into Perl hash array
  my $decoded = decode_json($json);

  # print the array contents
  print Dumper($decoded);
}