Agent::Message - the Transportable Agent Perl module
use Agent; my $msg = new Agent::Message( Body => [ 'foo bar', 'baz' ], Transport => TCP, Address => '127.0.0.1:24368' ); $msg->send;
This module is meant to standardize agent communications over a number of different transport mediums (see Agent::Transport).
new makes a nice new
Message object with all the arguments you pass it. It understands the following parameters:
Body => $body, [ Transport => $medium, Address => $destination, SendNow => $true_false ]
This instantiates the class with only one destination (multiple destinations are possible - see below). If SendNow is true, the message is dispatched ASAP.
Sets/gets the body of the message.
Adds the destination address to the list of destinations within said medium; adds the medium if need be.
Removes the destination address from the list of destinations within said medium. If last destination in medium, removes medium also.
Removes the specified transport medium and all of its destinations.
Sends the message body in all transport mediums. Passes
\%args to all transport mediums when sending. Returns an array of results returned by each transport medium the message was sent in.
$msg->del_dest and $msg->del_transport don't work; I'm too lazy.
Agent::Transport, the example agents.
Steve Purkis <email@example.com>
Copyright (c) 1998 Steve Purkis. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Whoever invented mail.