NAME
Event::Lite::Publisher - Send events to listeners
SYNOPSIS
use Event::Lite::Publisher;
my $publisher = Event::Lite::Publisher->new(
address => 'server.address.com',
port => 34343,
# The username/password are only necessary if required by the event server:
username => 'admin',
password => 'swordfish',
);
$publisher->publish(
event => 'the.event.name.here',
# Anything else is just passed along:
foo => 'bar',
some_numbers => [ 1..10 ],
a_hash => { hello => 'world' },
nested => {
even => [ 2, 4, 6, 8 ],
odd => [ 1, 3, 5, 7 ],
more => [ ['a','b'], { a => 'word' } ],
},
);
# Not ok:
$publisher->publish(
event => 'event-name-here',
object => CGI->new(), # No
filehandle => $ofh, # No
db_handle => $dbh, # No
socket => $sock, # No
);
# Works, but is not recommended:
$publisher->publish(
event => 'war-and-peace',
text => "It was the best of times, it was the worst of times\n"x1_000_000
);
# When you tire of publishing:
$publisher->stop();
DESCRIPTION
Event::Lite::Publisher
connects to an Event::Lite::Server and sends your events to it.
Operative word here is events, not huge chunks of data. While it is possible to send enourmous chunks of data, it's not recommended. Performance will degrade.
SUPPORT
Visit http://www.devstack.com/contact/ or email the author at <jdrago_999@yahoo.com>
Commercial support and installation is available.
AUTHOR
John Drago <jdrago_999@yahoo.com>
COPYRIGHT AND LICENSE
Copyright (C) 2008 by John Drago
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available.