#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use MyClientRest::ClientRest;

my $host = "http://127.0.0.1:8000";

# instatiate class
my $object = new ClientRest( $host );

my $data = $object->getSnippets();
print Dumper $data;

__END__

$ perl restClient.pl
$VAR1 = {
          'count' => 2,
          'previous' => undef,
          'next' => undef,
          'results' => [
                         {
                           'highlight' => 'http://127.0.0.1:8000/snippets/1/highlight/',
                           'language' => 'perl',
                           'id' => 1,
                           'url' => 'http://127.0.0.1:8000/snippets/1/',
                           'style' => 'emacs',
                           'code' => 'print "Test POST Request"',
                           'owner' => 'user',
                           'title' => 'Default Title',
                           'linenos' => bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' )
                         },
                         {
                           'code' => 'print "Test POST Request"',
                           'owner' => 'user',
                           'title' => 'Test Title',
                           'linenos' => $VAR1->{'results'}[0]{'linenos'},
                           'highlight' => 'http://127.0.0.1:8000/snippets/2/highlight/',
                           'language' => 'perl',
                           'id' => 2,
                           'url' => 'http://127.0.0.1:8000/snippets/2/',
                           'style' => 'emacs'
                         }
                       ]
        };