]>
git.proxmox.com Git - librados2-perl.git/blob - test.pl
7 use PVE
::RPCEnvironment
;
13 my $rpcenv = PVE
::RPCEnvironment-
>init('cli');
15 my $rados = PVE
::RADOS
::new
();
17 my $res = $rados->mon_command({ prefix
=> 'get_command_descriptions'});
20 $res = $rados->mon_command({ prefix
=> 'mon dump', format
=> 'json' });
23 my $stat = $rados->cluster_stat;