NAME
Atomic::Pipe - Send atomic messages from multiple writers across a POSIX pipe.
DESCRIPTION
Normally if you write to a pipe from multiple processes/threads, the messages will come mixed together unpredictably. Some messages may be interrupted by parts of messages from other writers. This module takes advantage of some POSIX specifications to allow multiple writers to send arbitrary data down a pipe in atomic chunks to avoid the issue.
NOTE: This only works for POSIX compliant pipes on POSIX compliant systems. Also some features may not be available on older systems, or some platforms.
Also: https://man7.org/linux/man-pages/man7/pipe.7.html
POSIX.1 says that write(2)s of less than PIPE_BUF bytes must be
atomic: the output data is written to the pipe as a contiguous
sequence. Writes of more than PIPE_BUF bytes may be nonatomic: the
kernel may interleave the data with data written by other processes.
POSIX.1 requires PIPE_BUF to be at least 512 bytes. (On Linux,
PIPE_BUF is 4096 bytes.) [...]
Under the hood this module will split your message into small sections of slightly smaller than the PIPE_BUF limit. Each section is sent as 1 atomic chunk with a 16 byte header consisting of four 32-bit fields: the process id it came from, the thread id it came from, a chunk ID (in descending order, so if there are 3 chunks the first will have id 2, the second 1, and the final chunk is always 0 allowing a flush as it knows it is done) and the length of the data section to follow.
NOTE: Payloads are byte strings. If you have a wide-character (unicode) string, encode it (e.g. with "encode" in Encode) before passing it to write_message() or write_burst(); decode on the read side.
On the receiving end this module will read chunks and re-assemble them based on the header data. So the reader will always get complete messages. Note that message order is not guaranteed when messages are sent from multiple processes or threads. Though all messages from any given thread/process should be in order.
SYNOPSIS
use Atomic::Pipe;
my ($r, $w) = Atomic::Pipe->pair;
# Chunks will be set to the number of atomic chunks the message was split
# into. It is fine to ignore the value returned, it will always be an
# integer 1 or larger.
my $chunks = $w->write_message("Hello");
# $msg now contains "Hello";
my $msg = $r->read_message;
# Note, you can set the reader to be non-blocking:
$r->blocking(0);
# Writer too (but buffers unwritten items until your next write_burst(),
# write_message(), or flush(), or will do a writing block when the pipe
# instance is destroyed.
$w->blocking(0);
# $msg2 will be undef as no messages were sent, and blocking is turned off.
my $msg2 = $r->read_message;
Fork example from tests:
use Test2::V0;
use Test2::Require::RealFork;
use Test2::IPC;
use Atomic::Pipe;
my ($r, $w) = Atomic::Pipe->pair;
# For simplicity
$SIG{CHLD} = 'IGNORE';
# Forks and runs your coderef, then exits.
sub worker(&) { ... }
worker { is($w->write_message("aa" x $w->PIPE_BUF), 3, "$$ Wrote 3 chunks") };
worker { is($w->write_message("bb" x $w->PIPE_BUF), 3, "$$ Wrote 3 chunks") };
worker { is($w->write_message("cc" x $w->PIPE_BUF), 3, "$$ Wrote 3 chunks") };
my @messages = ();
push @messages => $r->read_message for 1 .. 3;
is(
[sort @messages],
[sort(('aa' x PIPE_BUF), ('bb' x PIPE_BUF), ('cc' x PIPE_BUF))],
"Got all 3 long messages, not mangled or mixed, order not guaranteed"
);
done_testing;
Optional Zstd compression, only for messages too big for one atomic write (the recommended way to use compression):
my ($r, $w) = Atomic::Pipe->pair(compress_large_only => 1);
# Fits in one atomic part: sent as-is, no compression cost.
$w->write_message($small_payload);
# Larger than one atomic part (4080 bytes on Linux by default): compressed
# first, then split only if it is still too big.
$w->write_message($big_payload);
my $msg = $r->read_message; # decompressed transparently when needed
Pass compression_threshold => $bytes to use a different cut-off.
Or compress every burst and message (both ends must agree):
my ($r, $w) = Atomic::Pipe->pair(compression => 'zstd');
See "COMPRESSION" for details and options.
MIXED DATA MODE
Mixed data mode is a special use-case for Atomic::Pipe. In this mode the assumption is that the writer end of the pipe uses the pipe as STDOUT or STDERR, and as such a lot of random non-atomic prints can happen on the writer end of the pipe. The special case is when you want to send atomic-chunks of data inline with the random prints, and in the end extract the data from the noise. The atomic nature of messages and bursts makes this possible.
Please note that mixed data mode makes use of 3 ASCII control characters:
- SHIFT OUT (^N or \x0E)
-
Used to start a burst
- SHIFT IN (^O or \x0F)
-
Used to terminate a burst
- DATA LINK ESCAPE (^P or \x10)
-
If this directly follows a SHIFT-OUT it marks the burst as being part of a data-message.
If the random prints include SHIFT OUT then they will confuse the read-side parser and it will not be possible to extract data, in fact reading from the pipe will become quite unpredictable. In practice this is unlikely to cause issues, but printing a binary file or random noise could do it.
A burst may not include SHIFT IN as the SHIFT IN control+character marks the end of a burst. A burst may also not start with the DATA LINK ESCAPE control character as that is used to mark the start of a data-message.
data-messages may contain any data/characters/bytes as they messages include a length so an embedded SHIFT IN will not terminate things early.
# Create a pair in mixed-data mode
my ($r, $w) = Atomic::Pipe->pair(mixed_data_mode => 1);
# Open STDOUT to the write handle
open(STDOUT, '>&', $w->{wh}) or die "Could not clone write handle: $!";
# For sanity
$wh->autoflush(1);
print "A line!\n";
print "Start a line ..."; # Note no "\n"
# Any number of newlines is fine the message will send/receive as a whole.
$w->write_burst("This is a burst message\n\n\n");
# Data will be broken into atomic chunks and sent
$w->write_message($data);
print "... Finish the line we started earlier\n";
my ($type, $data) = $r->get_line_burst_or_data;
# Type: 'line'
# Data: "A line!\n"
($type, $data) = $r->get_line_burst_or_data;
# Type: 'burst'
# Data: "This is a burst message\n\n\n"
($type, $data) = $r->get_line_burst_or_data;
# Type: 'message'
# Data: $data
($type, $data) = $r->get_line_burst_or_data;
# Type: 'line'
# Data: "Start a line ...... Finish the line we started earlier\n"
# mixed-data mode is always non-blocking
($type, $data) = $r->get_line_burst_or_data;
# Type: undef
# Data: undef
You can also turn mixed-data mode after construction, but you must do so on both ends:
$r->set_mixed_data_mode();
$w->set_mixed_data_mode();
Doing so will make the pipe non-blocking, and will make all bursts/messages include the necessary control characters.
COMPRESSION
Atomic::Pipe can transparently compress bursts and messages (including in mixed-data mode) with Zstandard. Plain print $wh ... traffic is not compressed. Both ends of the pipe must be configured the same way; mismatch produces protocol errors (or, in the case of mismatched dictionaries, silent corruption -- see "Custom dictionary" below).
Requires Compress::Zstd (a soft / recommended dependency, loaded only when compression is enabled).
Constructor options
All constructors (new, pair, from_fh, from_fd, read_fifo, write_fifo) accept:
- compression => 'zstd'
-
Enable Zstd compression. Currently
'zstd'is the only supported algorithm; any other value croaks at construction. - compression_level => $level
-
Zstd compression level, defaults to 3. Only meaningful when
compressionis enabled. - compression_dictionary => $bytes
-
Optional shared Zstd dictionary, supplied as raw bytes. Both ends must use the same dictionary content. Mutually exclusive with
compression_dictionary_file. - compression_dictionary_file => $path
-
Same as
compression_dictionarybut loaded from a file via "new_from_file" in Compress::Zstd::CompressionDictionary. The file is read on demand. - keep_compressed => $bool
-
When set together with
compression, reads expose the on-wire compressed bytes alongside the decompressed payload. See read_message and get_line_burst_or_data for the exact return-shape changes. Has no effect withoutcompression.Under "compress_large_only" only messages that were actually compressed report a compressed form; messages sent plain return just the payload.
- compress_large_only => $bool
-
Compress only messages too big for one atomic part, and send the rest plain. Turns on
compression => 'zstd'when nocompressionis given, so this one option is all most users need. See "Compressing only large messages". - compression_threshold => $bytes
-
Optional. Messages longer than
$bytesare compressed.Default: the largest payload that fits in one atomic part,
PIPE_BUFminus framing. That is 4080 bytes on Linux (4077 in mixed-data mode), so exactly the messages that would otherwise be split get compressed.0compresses every message that compression makes smaller. Unlike plaincompression, this still uses the flagged format, so incompressible messages go out as-is.Setting this also turns on
compress_large_only(and compression). The "compression_threshold" accessor reports the threshold in use.
Compressing only large messages
With plain compression every burst and message is compressed. For small messages that is pure CPU cost: they already fit in one atomic write, and decompressing on a single reader is slower than reading them as-is. compress_large_only compresses a message only when it is longer than "compression_threshold", and only keeps the compressed form when it is actually smaller (already-compressed or random payloads go out plain).
my ($r, $w) = Atomic::Pipe->pair(compress_large_only => 1);
That is the whole setup. It turns on zstd and uses the default threshold:
A message that fits in one atomic part (up to 4080 bytes on Linux, 4077 in mixed-data mode) is sent as-is.
A larger message is compressed first, then split into parts only if it is still too big for one.
If compressing does not make it smaller, it is sent as-is (and split as usual).
To use a different cut-off:
my ($r, $w) = Atomic::Pipe->pair(compression_threshold => 16_384);
Each compressed message is marked by the high bit of the part-size field in its headers, so the reader knows which messages to decompress. Consequences:
Mixing versions is not supported. Both ends must run this version or later. An older reader takes the flagged size field as a ~2 GB part: on a plain pipe it stalls until EOF and then throws
EOF before end of message, and on a FIFO that stays open it hangs forever with no error. Atomic::Pipe is almost always used between forked processes running the same code, so this should not come up; just don't enablecompress_large_onlyon a writer that older readers consume.Configure
compress_large_onlyon the reader too (or leave compression off there, see the next point). A reader with plaincompressionand nocompress_large_onlystill tries to decompress every unflagged message.A reader without
compressionconfigured still decompresses flagged messages, as long as Compress::Zstd is installed. A custom dictionary must still be configured on both ends.Bursts (write_burst) are never compressed in this mode, and the reader does not try to decompress them.
With
keep_compressed, only messages that were sent compressed report a compressed form.
Plain compression without compress_large_only keeps the original wire format, so it stays compatible with older versions.
Custom dictionary
Custom Zstd dictionaries can dramatically reduce frame size for small, repetitive payloads. Either form (bytes or file) may be supplied at construction or via set_compression_dictionary / set_compression_dictionary_file.
Caveat: raw zstd dictionaries do not embed a dict-ID. As a result a mismatched peer dictionary will silently decode to garbage rather than fail. (Hard frame corruption -- truncated or invalid frames -- still raises fatally.) Both ends must agree on byte-identical dictionary content.
Performance
Compression trades CPU for wire size. Whether it is also faster depends on where the bottleneck is:
Small messages (that already fit in one atomic part) are always faster plain. Compressing them only adds work on both ends.
Large messages with one writer are also faster plain: the reader does the same work either way, and decompression is extra.
Large messages from many writers into one reader can be faster compressed in mixed-data mode, where each part costs the reader more. Compression runs in parallel in the writers, decompression is cheap, and the reader handles fewer parts. This is the case "compress_large_only" is for. With plain
read_messagethe reader is fast enough that plain still wins.
Versions before 0.033 had a reader bug that made reading large streams quadratic, especially in mixed-data mode. Compression shrank the stream and so hid most of it, which is why older versions of this documentation reported compression as up to ~1000x faster. That advice no longer applies.
The kernel pipe buffer size (see resize) has little effect on throughput.
Benchmark: streaming JSON objects
From bench/zstd_compression.pl in the distribution: one writer, one reader, mixed-data mode, 100 MB of synthetic JSON objects of 187 .. 10000 bytes (average ~5.1 KB, so most are larger than PIPE_BUF), 1 MB pipe:
mode raw MB/s wire MB ratio
plain 530.70 100.00 -
L-3 276.39 35.61 2.81x
L1 240.18 30.56 3.27x
L3 (def) 208.35 30.25 3.31x
large-only 244.90 40.67 2.46x
("large-only" is compress_large_only at the default threshold and level.)
A separate run with 1 and 8 writers into one reader, MB/s. Large messages are ~1.6 MB:
large messages plain zstd large-only
1 writer, mixed 883 482 503
1 writer, read_msg 1337 530 520
8 writers, mixed 878 1143 1112
8 writers, read_msg 1339 1148 1171
Small messages are ~1.2 KB, so large-only sends them all plain:
small messages plain zstd large-only
1 writer, mixed 359 121 335
1 writer, read_msg 555 129 477
8 writers, mixed 344 119 334
8 writers, read_msg 649 140 587
Practical guidance
Leave compression off unless wire size matters, or many writers feed one reader with large messages in mixed-data mode. With one writer, compression of any kind is slower: about half the speed for large messages.
A reader that is slowed down by other work (for example, it writes every message to a database) gains nothing from compression either; the pipe is not its bottleneck.
If you do enable it, prefer "compress_large_only" over plain
compression: small messages go out plain, so they keep their speed, and large ones are compressed. With many writers it stays within about 15% of the faster of plain and full compression in the runs above.For JSON-like payloads, level 1 or the default level 3 are good starting points. Levels above ~7 buy single-digit-percent ratio gains for multi-x CPU cost; in an IPC path they are rarely worth it.
A custom dictionary ("Custom dictionary") helps most when payloads are small and share structure -- e.g. identical JSON keys across every message.
These results depend heavily on payload entropy, CPU and topology. Re-run bench/zstd_compression.pl against a representative slice of your own data before deciding.
METHODS
CLASS METHODS
- $bytes = Atomic::Pipe->PIPE_BUF
-
Get the maximum number of bytes for an atomic write to a pipe.
- $bool = Atomic::Pipe->HAVE_IO_SELECT
-
True if IO::Select is available on this system. When available, it is used by default in
fill_buffer()to efficiently wait for pipe readability instead of relying on blockingsysread()with an EINTR retry loop. - ($r, $w) = Atomic::Pipe->pair
- ($r, $w) = Atomic::Pipe->pair(%params)
-
Create a pipe, returns a list consisting of a reader and a writer.
All constructors accept the same optional
%params: the compression options documented in "COMPRESSION", andmixed_data_mode => 1(see "MIXED DATA MODE"). - $p = Atomic::Pipe->new
- $p = Atomic::Pipe->new(%params)
-
If you really must have a
new()method it is here for you to abuse. The returned pipe has both handles, it is your job to then turn it into 2 clones one with the reader and one with the writer. It is also your job to make sure you do not have too many handles floating around preventing an EOF. - $r = Atomic::Pipe->read_fifo($FIFO_PATH, %params)
- $w = Atomic::Pipe->write_fifo($FIFO_PATH, %params)
-
These 2 constructors let you connect to a FIFO by filesystem path.
The interface difference (read_fifo and write_fifo vs specifying a mode) is because the modes to use for fifo's are not obvious (
'+<'for reading).NOTE: THERE IS NO EOF for the read-end in the process that created the fifo. You need to figure out when the last message is received on your own somehow. If you use blocking reads in a loop with no loop exit condition then the loop will never end even after all writers are gone.
- $p = Atomic::Pipe->from_fh($fh, %params)
- $p = Atomic::Pipe->from_fh($mode, $fh, %params)
-
Create an instance around an existing filehandle (A clone of the handle will be made and kept internally).
This will fail if the handle is not a pipe.
If no mode is provided this constructor will determine the mode (reader or writer) for you from the given handle. Note: This works on linux, but not BSD or Solaris, on most platforms your must provide a mode.
Valid modes:
- $p = Atomic::Pipe->from_fd($mode, $fd, %params)
-
$fdmust be a file descriptor number.This will fail if the fd is not a pipe.
You must specify one of these modes (as a string):
OBJECT METHODS
PRIMARY INTERFACE
- $p->write_message($msg)
-
Send a message in atomic chunks.
- $msg = $p->read_message
-
Get the next message. This will block until a message is received unless you set
$p->blocking(0). If blocking is turned off, and no message is ready, this will return undef. This will also return undef when the pipe is closed (EOF).When
compressionandkeep_compressedare both enabled, list-context calls additionally return the raw on-wire compressed bytes:my ($message, $compressed) = $p->read_message;In
debug => 1mode the returned hashref gains acompressedkey holding the raw compressed bytes. Scalar-context calls always return just the decompressed message, regardless ofkeep_compressed.Under "compress_large_only" only messages that were sent compressed carry the extra value; plain messages return just the message.
- $p->blocking($bool)
- $bool = $p->blocking
-
Get/Set blocking status. This works on read and write handles. On writers this will write as many chunks/bursts as it can, then buffer any remaining until your next write_message(), write_burst(), or flush(), at which point it will write as much as it can again. If the instance is garbage collected with chunks/bursts in the buffer it will block until all can be written.
- $bool = $p->pending_output
-
True if the pipe is a non-blocking writer and there is pending output waiting for a flush (and for the pipe to have room for the new data).
- $w->flush()
-
Write any buffered items. This is only useful on writers that are in non-blocking mode, it is a no-op everywhere else.
- $bool = $r->eof()
-
True if all writers are closed, and the buffers do not contain any usable data.
Usable data means raw data that has yet to be processed, complete messages, or complete data bursts. Any of these can still be retrieved using
read_message(), orget_line_burst_or_data(). - $p->close
-
Close this end of the pipe (or both ends if this is not yet split into reader/writer pairs).
If the writer has output buffered by non-blocking writes, it is flushed (blocking) before the write handle is closed so the data is not lost. The flush is skipped if the pipe already hit
EPIPEor is in an invalid state. - $undef_or_bytes = $p->fits_in_burst($data)
-
This will return
undefif the data DOES NOT fit in a burst. This will return the size of the data in bytes if it will fit in a burst. - $undef_or_true = $p->write_burst($data)
-
Attempt to write
$datain a single atomic burst. If the data is too big to write atomically this method will not write any data and will returnundef. If the data does fit in an atomic write then a true value will be returned.Note: YOU MUST NOT USE
read_message()when writing bursts. This method sends the data as-is with no data-header or modification. This method should be used when the other side is reading the pipe directly without an Atomic::Pipe on the receiving end.The primary use case of this is if you have multiple writers sending short plain-text messages that will not exceed the atomic pipe buffer limit (minimum of 512 bytes on systems that support atomic pipes according to POSIX).
- $fh = $p->rh
- $fh = $p->wh
-
Get the read or write handles.
- $read_size = $p->read_size()
- $p->read_size($read_size)
-
Get/set the read size. This is how much data to ATTEMPT to read each time
fill_buffer()is called. The default is 65,536 which is the default pipe size on linux, though the value is hardcoded currently. - $bool = $p->use_io_select
- $p->use_io_select($bool)
-
Get/Set whether this pipe instance uses IO::Select for readability checks in
fill_buffer(). When true (and IO::Select is available),fill_buffer()usesIO::Select->can_read()to wait for data. When false, it falls back to a blockingsysread()with an EINTR retry loop.Defaults to true if IO::Select is installed (false on Windows, where
PeekNamedPipeis used instead). Can also be passed as a constructor parameter, e.g.Atomic::Pipe->pair(use_io_select => 0). - $bytes = $p->fill_buffer
-
Read a chunk of data from the pipe and store it in the internal buffer. Bytes read are returned. This is only useful if you want to pull data out of the pipe (maybe to unblock the writer?) but do not want to process any of the data yet.
This is automatically called as needed by other methods, usually you do not need to use it directly.
RESIZING THE PIPE BUFFER
On some newer linux systems it is possible to get/set the pipe size. On supported systems these allow you to do that, on other systems they are no-ops, and any that return a value will return undef.
Note: This has nothing to do with the similarly named PIPE_BUF which cannot be changed. This simply effects how much data can sit in a pipe before the writers block, it does not effect the max size of atomic writes.
- $bytes = $p->size
-
Current size of the pipe buffer.
- $bytes = $p->max_size
-
Maximum size the pipe buffer can be resized to. On Linux this is read from
/proc/sys/fs/pipe-max-size; on systems where it cannot be determined this falls back to a conservative 1MB. - $p->resize($bytes)
-
Attempt to set the pipe size in bytes. It may not work, so check
$p->size. - $p->resize_or_max($bytes)
-
Attempt to set the pipe to the specified size, but if the size is larger than the maximum fall back to the maximum size instead.
SPLITTING THE PIPE INTO READER AND WRITER
If you used Atomic::Pipe->new() you need to now split the one object into readers and writers. These help you do that.
- $bool = $p->is_reader
-
This returns true if this instance is ONLY a reader.
- $p->is_writer
-
This returns true if this instance is ONLY a writer.
- $p->clone_reader
-
This copies the object into a reader-only copy.
- $p->clone_writer
-
This copies the object into a writer-only copy.
- $p->reader
-
This turns the object into a reader-only. Note that if you have no writer-copies then effectively makes it impossible to write to the pipe as you cannot get a writer anymore.
Any output buffered by non-blocking writes is flushed (blocking) before the write handle is closed.
- $p->writer
-
This turns the object into a writer-only. Note that if you have no reader-copies then effectively makes it impossible to read from the pipe as you cannot get a reader anymore.
MIXED DATA MODE METHODS
- $p->set_mixed_data_mode
-
Enable mixed-data mode. Also makes read-side non-blocking.
- ($type, $data) = $r->get_line_burst_or_data()
- ($type, $data) = $r->get_line_burst_or_data(peek_line => 1)
-
Get a line, a burst, or a message from the pipe. Always non-blocking, will return
(undef, undef)if no complete line/burst/message is ready.$type will be one of:
undef,'line','burst','message', or'peek'.$data will either be
undef, or a complete line, burst, message, or a buffered line that has no newline termination.The
peek_lineoption, when true, will cause this to return'peek'and a buffered line not terminated by a newline, if such a line has been read and is pending in the buffer. Calling this multiple times will return the same peek line (and anything added to the buffer since the last read) until the buffer reads a newline or hits EOF.When
compressionandkeep_compressedare both enabled, theburstandmessagereturn paths additionally yield acompressed => $raw_bytespair:(burst => $decompressed, compressed => $raw) (message => $decompressed, compressed => $raw)Under "compress_large_only" bursts and plain messages never include a
compressedkey; only messages that were sent compressed do.The
lineandpeekpaths never include acompressedkey. The 2-tuple idiommy ($type, $data) = $p->get_line_burst_or_data;remains valid; the extra elements are simply discarded.
COMPRESSION METHODS
- $algo_or_undef = $p->compression
- $level_or_undef = $p->compression_level
- $bytes_or_undef = $p->compression_dictionary
- $path_or_undef = $p->compression_dictionary_file
- $bool = $p->keep_compressed
- $bool = $p->compress_large_only
- $bytes_or_undef = $p->compression_threshold
-
Read-only accessors for the corresponding compression settings. See "COMPRESSION".
compression_thresholdreturns the threshold in use whilecompress_large_onlyis on, including the default (4080 bytes on Linux, 4077 in mixed-data mode), and undef when it is off. - $p->set_compression('zstd', $level)
- $p->set_compression(undef)
-
Enable, change, or disable compression on an existing pipe.
$levelis optional; calling$p->set_compression('zstd')with no level preserves whatever level was previously set. To reset the level to its default, call$p->set_compression(undef)first (which clears compression, level, and any cached compressors), then re-enable.set_compression(undef)does not clearcompression_dictionaryorcompression_dictionary_file; the dictionary is preserved across disable/re-enable. Use the dictionary setters to clear those slots. - $p->set_compression_dictionary($bytes)
- $p->set_compression_dictionary(undef)
-
Set, replace, or clear the raw-bytes dictionary. Setting clears any file-path dictionary (mutually exclusive). Cached preprocessed dictionaries are rebuilt on next compress/decompress.
- $p->set_compression_dictionary_file($path)
- $p->set_compression_dictionary_file(undef)
-
Set, replace, or clear the file-path dictionary. Setting clears any raw-bytes dictionary.
- $p->set_keep_compressed($bool)
-
Toggle whether reads expose the raw compressed bytes alongside the decompressed payload.
- $p->set_compress_large_only($bool)
- $p->set_compress_large_only(1, $threshold)
-
Turn "Compressing only large messages" on or off.
$thresholdis optional; without it the default is used (one atomic part, 4080 bytes on Linux). Turning it on enableszstdcompression if it is not already enabled.Turning it off undoes that: it clears the threshold, and if compression was only on because of
compress_large_only, compression goes off too. If you setcompressionyourself, it stays on and the pipe goes back to compressing every burst and message.
SOURCE
The source code repository for Atomic-Pipe can be found at http://github.com/exodist/Atomic-Pipe.
MAINTAINERS
AUTHORS
COPYRIGHT
Copyright 2020 Chad Granum <exodist7@gmail.com>.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.