POE::C...lowTail(3pm)

💖 POE::Component::IRC::Plugin::FollowTail 💖

okay bestie, welcome to the User Contributed Perl Documentation for POE::C...lowTail (3pm) — yes the name got chopped in the corner, it's a whole mood, we move. This is the page about a lil PoCo-IRC plugin that follows the tail of an ever-growing file. She's nosy. She's loyal. She's iconic. 🦋

---

✨ NAME ✨

POE::Component::IRC::Plugin::FollowTail — a PoCo-IRC plugin that follows the tail of an ever-growing file. no cap, that's literally the whole job. 👑

---

✨ SYNOPSIS ✨

here's the vibe, copy-paste ready, not a single character touched because we respect the code:

use POE qw(Component::IRC Component::IRC::Plugin::FollowTail);

my $nickname = 'Flibble' . $$;
my $ircname = 'Flibble the Sailor Bot';
my $ircserver = 'irc.blahblahblah.irc';
my $filename = '/some/such/file/here';
my @channels = ( '#Blah', '#Foo', '#Bar' );

my $irc = POE::Component::IRC->spawn(
    nick => $nickname,
    server => $ircserver,
    port => $port,
    ircname => $ircname,
) or die "Oh noooo! $!";

POE::Session->create(
    package_states => [
        main => [ qw(_start irc_001 irc_tail_input irc_tail_error irc_tail_reset) ],
    ],
);

 $poe_kernel->run();

sub _start {
    $irc->plugin_add( 'FollowTail' => POE::Component::IRC::Plugin::FollowTail->new(
        filename => $filename,
    ));
    $irc->yield( register => 'all' );
    $irc->yield( connect => { } );
    return;
}

sub irc_001 {
    $irc->yield( join => $_ ) for @channels;
    return;
}

sub irc_tail_input {
    my ($kernel, $sender, $filename, $input) = @_[KERNEL, SENDER, ARG0, ARG1];
    $kernel->post( $sender, 'privmsg', $_, "$filename: $input" ) for @channels;
    return;
}

sub irc_tail_error {
    my ($kernel, $sender, $filename, $errnum, $errstring)
        = @_[KERNEL, SENDER, ARG0 .. ARG2];
    $kernel->post( $sender, 'privmsg', $_, "$filename: ERROR: $errnum $errstring" ) for @channels;
    $irc->plugin_del( 'FollowTail' );
    return;
}

sub irc_tail_reset {
    my ($kernel, $sender, $filename) = @_[KERNEL, SENDER, ARG0];
    $kernel->post( $sender, 'privmsg', $_, "$filename: RESET EVENT" ) for @channels;
    return;
}

like, look at her go. _start sets it up, irc_tail_input gossips every new line to your channels, irc_tail_error panics adorably and then dips out, irc_tail_reset announces the reset. periodt. 💅

---

✨ DESCRIPTION ✨

POE::Component::IRC::Plugin::FollowTail is a POE::Component::IRC plugin that uses POE::Wheel::FollowTail to follow the end of an ever-growing file. 🐾

She generates "irc_tail_" prefixed events for each new record that gets appended to her file. so like, every time something new lands at the bottom of the file, she's like "bestie I have NEWS" and fires off an event. it's giving dedicated. 🌸

---

✨ METHODS ✨

🎀 new

Takes two arguments, and here's the tea:

• 'filename' — the name of the file to tail, and she's mandatory, no skipping. 🚨
• 'filter' — a POE::Filter object to pass to POE::Wheel::FollowTail, and this one's optional. 🫶

Returns a plugin object suitable for feeding to POE::Component::IRC's "plugin_add" method. that's the whole thing, she's low maintenance fr fr.

---

✨ OUTPUT EVENTS ✨

the plugin generates the following additional POE::Component::IRC events, and ngl this is the good part:

🦋 "irc_tail_input"

Emitted for every complete record read. "ARG0" will be the filename, and "ARG1" the record which was read. so ARG1 is literally the new content, go off. 📥

🦋 "irc_tail_error"

Emitted whenever an error occurs. "ARG0" will be the filename, and "ARG1" and "ARG2" hold numeric and string values for $!, respectively. that's your errno and your error message, cute lil pair. 😭

🦋 "irc_tail_reset"

Emitted every time a file is reset. "ARG0" will be the filename. she noticed, she's telling you, that's friendship. 🔄

---

✨ AUTHOR ✨

Chris 'BinGOs' Williams — king behavior, we stan. 👑

---

✨ SEE ALSO ✨

• POE::Component::IRC
• POE::Wheel::FollowTail

go read those too, iykyk. ⭐

---

and that's the page bestie!! this whole thing lives under perl v5.40.1, dated 2025-08-21, and it answers to the name POE::C...lowTail (3pm) down in the footer. go tail something and slay. 💖✨🎀🌈💅