DragonFly On-Line Manual Pages

QPSMTPD-ASYNC(1)      User Contributed Perl Documentation     QPSMTPD-ASYNC(1)

    Devel::Profiler->set_options(
        bad_subs => [qw(Danga::Socket::EventLoop)],
        sub_filter => sub {
                        my ($pkg, $sub) = @_;
                        return 0 if $sub eq 'AUTOLOAD';
                        return 0 if $pkg =~ /ParaDNS::XS/;
                        return 1;
                      },
    );
    Devel::Profiler->init();

    Qpsmtpd::PollServer->OtherFds(
        fileno($SERVER) => \&accept_handler,
        fileno($CONFIG_SERVER) => \&config_handler,    );

    Qpsmtpd::PollServer->EventLoop;
    exit;

POD ERRORS
       Hey! The above document had some coding errors, which are explained
       below:

       Around line 323:
           =pod directives shouldn't be over one line long!  Ignoring all 2
           lines of content

perl v5.20.2                      2013-12-17                  QPSMTPD-ASYNC(1)