A Sample Grid Service

package Counter;

use OGSI::Lite;

use vars qw( @ISA );

@ISA = qw( OGSI::GS ); #inherit from base Grid Service class – pick up Destroy,findServiceData etc….

$count = 0; #this is our state

#called on creation by the Factory for this service.

sub init {

OGSI::GS::init(); #call base class init method - sets up core SDEs

#set some of the service’s SDEs

$OGSI::GS::ServiceDataHash{"ogsi:interface"} .= "<ogsi:interface>Counter</ogsi:interface>";

return;

}

#the std Grid Service Counter add example

sub add {

my ($class, $value) = @_;

$count = $count + $value;

return $count;

}

1;

Previous slide

Next slide

Back to first slide

View graphic version