Group
Extension

Matches 2

Net-Async-WebService-lxd ( D/DR/DRRHO/Net-Async-WebService-lxd-0.03.tar.gz, DRRHO, 2022; MetaCPAN )
Net-Async-WebService-lxd/lib/Net/Async/WebService/lxd.pod ( view source; MetaCPAN )
=> 'test1',
            body => {
                action   => "start",
		force    => JSON::false,
		stateful => JSON::false,
		timeout  => 30,
	    } )->get;                                           
em *

a Perl HASH ref which reflects the JSON data sent from the LXD server. Note, that Booleans have to
be treated special, by using C<JSON::false> and C<JSON::true>. Otherwise, they follow B<exactly
y => {
                                   action   => "start",
				   force    => JSON::false,
				   stateful => JSON::false,
				   timeout  => 30,
 			         } );

That HASH ref also follows the 
Net-Async-WebService-lxd ( D/DR/DRRHO/Net-Async-WebService-lxd-0.03.tar.gz, DRRHO, 2022; MetaCPAN )
Net-Async-WebService-lxd/lib/Net/Async/WebService/lxd.pm ( view source; MetaCPAN )
package lxd::instance;

use strict;
use warnings;

use JSON;
use Data::Dumper;

sub state {
    my ($elf, $lxd, %params) = @_;
    my $wait = delete $params{wait} // 1;
    my $f = $lxd->instance_stat
ction {
    my ($elf, $lxd, $action, %params) = @_;
    $params{stateful}  //= JSON::false;
    $params{force}    //= JSON::false;
    $params{timeout} //= 30;
    my $wait = delete $params{wait} // 1
Data::Dumper;
$Data::Dumper::Indent = 1;

our $VERSION = '0.03';

use Encode qw(encode_utf8);
use JSON;
use HTTP::Status qw(:constants);

use Moose;


use Log::Log4perl qw(:easy);
Log::Log4perl->easy_

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.