The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Padre::Swarm::Message - A Swarm message base

SYNOPSIS

my ($channel,$entity,$message) = $some_transport->receive_from( $some_channel );
print $message->title , ' - ' , $message->type;
if ( $message->type eq 'interesting' ) {
  # process 
}  

my $message = Padre::Swarm::Message->new( 
  title => 'Patch ./Changes',
  type  => 'svn:notify',
  from  => 'svn-jabber@example.com',
  to    => 'me@here.com',
  body  => $data ,
);

DESCRIPTION

At transport layer, a Swarm message has the attributes to, from, title, body and type.

title must be a string
to and from must be L<Padre::Swarm::Identity> instances.
type is always a string and may be used to subclass by registration
subclasses must not mutate  title,type,from,to 
body considered scalar bytes and entirely the problem of the 'type' implementor