#!/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 $username = "user";
my $password = "password";
my $url = "/snippets/";
my $snippets = $object->getSnippets( $url, $username, $password );
# print Dumper $snippets;

my $hashRef = { "title" => "Test Title",
		"code" => "print \"Test PUT Thanos Request\"",
		"linenos" => "false",
		"language" => "perl",
		"character" => "\x{00AE}",
		"style" => "emacs" };

my %options = ( "url"      => $url,
		"hashRef"  => $hashRef,
		"username" => $username,
		"password" => $password );

# my $post = $object->postSnippets( %options );
# print Dumper $post;

my %optionsUpdate = ( "url"      => $url . '49/',
		      "hashRef"  => $hashRef,
		      "username" => $username,
		      "password" => $password );

my $put = $object->putSnippets( %optionsUpdate );
print Dumper $put;