my $req = HTTP::Request->new( 'POST', $url);
$req->header( 'Content-Type' => 'application/json' );
$req->content( $body );
return $self->ua->request( $req );
}
sub Clear {
}
wit
r validated_setter/;
#use Lab::Moose::Instrument::Cache;
use Carp;
use namespace::autoclean;
use JSON::PP;
use Tie::IxHash;
# (1)
extends 'Lab::Moose::Instrument';
has 'request_id' => (
is => 'rw
'language' => (
is => 'ro',
isa => 'Int',
default => 0
);
has 'json' => (
is => 'ro',
isa => 'JSON::PP',
default => sub { JSON::PP->new },
);
has 'response_qeue' => (
is => 'rw',
isa => 'H
er
print("This is method: $method, and this param: $params\n");
# Create the JSON-RPC request TODO: change to JSON::RPC2 if it complies?
# my $request = {
# id => $self->request_id(),
se Carp;
use namespace::autoclean;
use Time::HiRes qw/time usleep/;
# HTTP request JSON stuff
use DateTime;
use JSON::PP;
use Data::Dumper;
extends 'Lab::Moose::Instrument';
has default_channel =>
isa => 'Num',
default => 90,
);
has json => (
is => 'ro',
isa => 'Any',
builder => '_build_json',
);
sub _build_json {
return JSON::PP->new;
}
around default_connection_optio
me->now."Z";
my $time_start = DateTime->from_epoch(epoch => time()-$time)."Z";
my %hash_json = ( 'channel_nr' => $channel_nr,
'start_time' => $time_start,
mand table; Bit
1, Bit 2: reserved; Bit 3: uploading of data to the command table failed due to a JSON parsing error.
=head3 /DEV/AWGS/n/DIO/DELAY/INDEX
Properties: Read Write Setting
Type: Integer