Demonstrating a method for breaking long lines

lessthan80.pl

package POE::Component::dns::monitor::sniffer;

use POE;
use warnings;
use strict;

sub spawn {
    my ($session) = POE::Session->create(
        inline_states => {
            _start => sub {
                print "hi  " . $_[SESSION]->ID . "\n  @{[join(', ', @_)]}\n"
            },
            _stop  => sub {
                print "bye " . $_[SESSION]->ID . "\n  @{[join(', ', @_)]}"
            },
        },
    );

    print "session: $session\n";
    $session;
}

package main;

foreach (1..2) {
    POE::Component::dns::monitor::sniffer->spawn();
}

POE::Kernel->run();

1;

morethan80.pl

package POE::Component::dns::monitor::sniffer;

use POE;
use warnings;
use strict;

sub spawn {
    my ($session) = POE::Session->create(
        inline_states => {
            _start => sub { print "hi  " . $_[SESSION]->ID . "\n  @{[join(', ', @_)]}\n" },
            _stop  => sub { print "bye " . $_[SESSION]->ID . "\n  @{[join(', ', @_)]}" },
        },
    );

    print "session: $session\n";
    $session;
}

package main;

foreach (1..2) {
    POE::Component::dns::monitor::sniffer->spawn();
}

POE::Kernel->run();

1;