Select Code to Download

package KM::POE::JabberClient;

...
    $node->insert_attrs([%attrs]) if %attrs;
    $kernel->post($heap->{'session'}, 'output_handler', $node);
}

sub input_hook {
    my ($kernel, $heap, $node) = @_[KERNEL, HEAP, ARG0];
...
        }
    }
}