CPAN::Groonga

'}; 

use Package::Alias
    'REST::Client'=>'Finance::IG::REST::Client'
;

use Finance::IG; 
use JSON; 
my $ig; 

# with Testing::Record::REST::Client need correct data 
$ig=Finance::IG->new(
       

$key}=~s/\xA3/£/g; 
         $p1->{$key}=~s/£-/-£/; 
       } 
       if (ref($p1->{$key}) eq 'JSON::PP::Boolean')
       {  
           $p1->{$key}=$p1->{$key}?1:0; 
       }  
       
     } 
   

$key}=~s/\xA3/£/g; 
         $p1->{$key}=~s/£-/-£/; 
       } 
       if (ref($p1->{$key}) eq 'JSON::PP::Boolean')
       {  
           $p1->{$key}=$p1->{$key}?1:0; 
       }  
       
       prin

ckage REST::Client; 
use strict; 
no strict 'refs'; 
use warnings; 
no warnings 'redefine'; 

use JSON; 
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $datapath; 
our $fdebug=0; # set to 1 prints som

$self, 
                      \@_,
                      JSON->new->canonical->encode(
                                   { content=>decode_json($self->responseContent) , 
                            

e_json($headers);  
  #print "headers#1=$headers\n";
  my $jheaders=JSON->new->canonical->encode($headers);  
  # print "After POST url=$url jdata=$jdata  jheaders=$jheaders, content=\n". encode_json(

package Finance::IG::REST::Client; 
use JSON; 
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $datapath; 
my $content; 

use vars '$AUTOLOAD';

my $fdebug=0; # print debug infor relating to files etc.

ction 

=cut

sub POST{ 
  my ($self,$url,$jdata,$headers)=@_; 
  local $"=', '; 

  my $jheaders=JSON->new->canonical->encode($headers);  
  if ($jdata)
  { 
    $jdata=~s/("identifier":)("[^"]+")/$1

 mocked response header. 

=cut 

sub responseHeader
{
   my ($self,$header)=@_; 
   my $c=decode_json($content); 
   my $headers=$c->{headers}; 
   return $headers->{$header}; 
} 

=head2 CST 

Dummy

ay of transactions for that time span. Each transaction is a hash of data.

=cut 

use Moose;
use JSON;
use REST::Client;
#use Data::Dump qw(dump); # used in some commented out debug statements
#use S

                            'Content-Type' => 'application/json; charset=UTF-8',
                            'Accept' =>  'application/json; charset=UTF-8',
                            VERSION => 2,

>password,
                            };
                # my $jdata = encode_json($data);
                my $jdata=JSON->new->canonical->encode($data);

                my $client = REST::Client->n