Tibco::Rv::Cm::Msg - Tibco certified message object

   $rv->createCmListener( ..., callback => sub
   {
      my ( $msg ) = @_;
      print "Listener got a message: $msg, from sender: ", $msg->CMSender,
      ', sequence: ', $msg->CMSequence, "\n";
   } );

Tibco certified message-manipulating class. It is a subclass of Tibco::Rv::Msg, so Msg methods are available to certified messages. Additionally, methods specific to certified messaging (CMSender, CMSequence, and CMTimeLimit) are available.

$msg = new Tibco::Rv::Cm::Msg( %args )

   %args:
      sendSubject => $sendSubject,
      replySubject => $replySubject,
      CMTimeLimit => $CMTimeLimit,
      $fieldName1 => $stringValue1,
      $fieldName2 => $stringValue2, ...

Creates a Tibco::Rv::Cm::Msg, with sendSubject, replySubject, and CMTimeLimit as given in %args (these three values default to undef if not specified). Any other name => value pairs are added as string fields.

$CMSender = $msg->CMSender

Returns the CMSender that sent $msg. If $msg was not sent from a certified messaging sender, undef is returned.

$CMSequence = $msg->CMSequence

Returns the sequence number if $msg was sent from a certified messaging sender, and if the listener is registered for certified delivery. Otherwise, undef is returned.

See your TIB/Rendezvous documentation for more information on CMSender and CMSequence.

$CMTimeLimit = $msg->CMTimeLimit

Returns the certified messaging time limit for $msg, after which the sender no longer certifies delivery. A return value of 0 represents no time limit.

$msg->CMTimeLimit( $CMTimeLimit )

Sets the certified messaging time limit for $msg, after which the sender no longer certifies delivery. If no time limit is set, the value set by Tibco::Rv::Cm::Transport::setDefaultCMTimeLimit is used. If setDefaultCMTimeLimit was not called, 0 is used (no time limit).

Tibco::Rv::Msg

Paul Sturm <sturm@branewave.com>