Ganglia::Gmetric - perl gmetric wrapper

  use Ganglia::Gmetric;

  my $gmetric=Ganglia::Gmetric->new({
    name => 'some name',
    value => 'some value',
    units => 'm/s',
    type => 'int16'
  });

  $gmetric->ttl('5');
  $gmetric->run(\$stdout,\$stderr);

  my $gmetric=Ganglia::Gmetric->new;

  my $gmetric=Ganglia::Gmetric->new({name => 'some name',
    value => 'some value',
    units => 'm/s',
    type => 'int16',
    channel => 'channel',
    port => 'port',
    iface => 'iface',
    ttl => 'ttl',
    path => '/path/to/gmetric/',
});

  $gmetric->run(\$stdout,\$stderr);

package Ganglia::Gmetric;
$VERSION=0.3;
use strict;
use base qw(Class::Accessor);
use IO::CaptureOutput qw/capture/;

my $gmetric='gmetric';

sub new {
	my $class = shift;
	my $self  = $class->SUPER::new(@_);
	return $self;
}
__PACKAGE__->mk_accessors(qw[name value type path units channel port iface ttl]);
__PACKAGE__->mk_ro_accessors(qw[command]);

sub run {
	my $self = shift;
	my ($stdout, $stderr)=@_;
	if ($self->{path}){$gmetric=$self->{path}.$gmetric}
	my $command="$gmetric -n $self->{name} -v $self->{value} -t $self->{type}";
	if ($self->{units}){$command.=" -u $self->{units}"}
	if ($self->{channel}){$command.=" -c $self->{channel}"}
	if ($self->{port}){$command.=" -p $self->{port}"}
	if ($self->{iface}){$command.=" -i $self->{iface}"}
	if ($self->{ttl}){$command.=" -l $self->{ttl}"}
	$self->{command}=$command;
	print $self->command;
	capture sub {
		system($command);
	} => $stdout, $stderr;
	return $? >> 8;
}

1;
__END__