test.pl

   1 #!/usr/bin/perl
   2
   3 use lib '.';
   4 use strict;
   5 use warnings;
   6 use JSON;
   7
   8 use Data::Dumper;
   9
  10 use PVE::RADOS;
  11
  12 my $rados = PVE::RADOS::new();
  13
  14 my $res = $rados->mon_command({ prefix => 'get_command_descriptions'});
  15 print Dumper($res);
  16
  17 $res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
  18 print Dumper($res);
  19
  20 my $stat = $rados->cluster_stat;
  21 print Dumper($stat);