NAME

Tibco::Rv - Perl bindings and Object-Oriented library for TIBCO's TIB/Rendezvous

SYNOPSIS

use Tibco::Rv;

my ( $rv ) = new Tibco::Rv;

my ( $listener ) =
   $rv->createListener( $rv->defaultTransport, 'ABC', sub
{
   my ( $msg ) = @_;
   print "Listener got a message: $msg\n";
} );

my ( $timer ) = $rv->createTimer( 2, sub
{
   my ( $msg ) = $rv->createMsg;
   $msg->addString( field1 => 'myvalue' );
   $msg->addString( field2 => 'myothervalue' );
   $msg->sendSubject( 'ABC' );
   print "Timer kicking out a message: $msg\n";
   $rv->defaultTransport->send( $msg );
} );

my ( $killTimer ) = $rv->createTimer( 7, sub { $rv->stop } );

$rv->start;
print "finished\n"

DESCRIPTION

AUTHOR

Paul Sturm, sturm@branewave.com

TIB/Rendezvous copyright notice:

/* * Copyright (c) 1998-2000 TIBCO Software Inc. * All rights reserved. * TIB/Rendezvous is protected under US Patent No. 5,187,787. * For more information, please contact: * TIBCO Software Inc., Palo Alto, California, USA * * @(#)tibrv.h 2.9 */

SEE ALSO

http://www.tibco.com