perfSONAR_PS::Datatypes::EventTypes::Tools - a container for various perfSONAR http://ggf.org/ns/nmwg/tools/ eventtypes


perfSONAR_PS-Services-PingER documentation Contained in the perfSONAR_PS-Services-PingER distribution.

Index


Code Index:

NAME

Top

    perfSONAR_PS::Datatypes::EventTypes::Tools -  a container for various perfSONAR http://ggf.org/ns/nmwg/tools/ eventtypes 

DESCRIPTION

Top

The purpose of this module is to create OO interface for tools eventtypes and therefore add the layer of abstraction for any tools eventtypes related operation ( mostly for perfSONAR response). All perfSONAR-PS classes should work with the instance of this class and avoid using explicit eventtype declarations.

SYNOPSIS

Top

    use perfSONAR_PS::Datatypes::EventTypes::Tools; 

    # create Tools eventtype object with default URIs
    my $tools_event = perfSONAR_PS::Datatypes::EventTypes::Tools->new();

    


    # overwrite only specific Namesapce   with  custom URI 

    $tools_event  = perfSONAR_PS::Datatypes::EventTypes::Tools->new( {'pinger' => 'http://ggf.org/ns/nmwg/tools/pinger/2.0'});

    my $pinger_tool = $tools_event->pinger; ## get URI by key

    $tools_event->pinger(  'http://ggf.org/ns/nmwg/tools/pinger/2.0'); ## set URI by key

Methods

Top

There is accessor mutator for every defined Characteristic

new( )

Creates a new object, pass hash ref as collection of event types for tools namespace

Supported Tools:

 'pinger'  'traceroute','snmp', 'ping', 'owamp',   'bwctl', 'pinger', 'iperf'




SEE ALSO

Top

To join the 'perfSONAR-PS' mailing list, please visit:

  https://mail.internet2.edu/wws/info/i2-perfsonar

The perfSONAR-PS subversion repository is located at:

  https://svn.internet2.edu/svn/perfSONAR-PS 

Questions and comments can be directed to the author, or the mailing list.

AUTHOR

Top

Maxim Grigoriev, <maxim@fnal.gov>, 2007

COPYRIGHT AND LICENSE

Top


perfSONAR_PS-Services-PingER documentation Contained in the perfSONAR_PS-Services-PingER distribution.

package perfSONAR_PS::Datatypes::EventTypes::Tools;

use strict;
use warnings;
use version; our $VERSION = 0.09; 
use Log::Log4perl qw(get_logger);
use Class::Accessor;
use Class::Fields;
use base qw(Class::Accessor Class::Fields);
use fields qw( snmp pinger traceroute ping owamp bwctl  iperf);
perfSONAR_PS::Datatypes::EventTypes::Tools->mk_accessors(perfSONAR_PS::Datatypes::EventTypes::Tools->show_fields('Public'));

use constant { 
              CLASSPATH => "perfSONAR_PS::Datatypes::EventTypes::Tools",
              TOOL  => "http://ggf.org/ns/nmwg/tools",
              RELEASE => "2.0"
	      };
	      
       
sub new {
  my $that = shift;
  my $param = shift;
  
  my $logger  = get_logger( CLASSPATH ); 
 
  if($param && ref($param) ne 'HASH')   {
    $logger->error("ONLY hash ref accepted as param " . $param ); 
    return undef;
  }
  my $class = ref($that) || $that;
  my $self =  fields::new( $class );  
  foreach my $tool ($self->show_fields('Public')) {
  	$self->{$tool} =    TOOL . "/$tool/" . RELEASE . "/";
  }
  return $self;

}

 
1;

 
__END__