[librados2-perl.git] / test.pl

#!/usr/bin/perl 

use lib '.';
use strict;
use warnings;
use JSON;

use Data::Dumper;

use PVE::RADOS;

my $rados = PVE::RADOS::new();

my $res = $rados->mon_command({ prefix => 'get_command_descriptions'});
print Dumper($res);

$res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
print Dumper($res);

my $stat = $rados->cluster_stat;
print Dumper($stat);
Commit	Line	Data
00185d20 DM	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
00185d20	12	my $rados = PVE::RADOS::new();
00185d20	13
f5996c62 DM	14	my $res = $rados->mon_command({ prefix => 'get_command_descriptions'});
	15	print Dumper($res);
	16
00185d20 DM	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);