Help for this page

Select Code to Download


  1. or download this
    package KM::POE::JabberClient;
    
    ...
        $node->insert_attrs([%attrs]) if %attrs;
        $kernel->post($heap->{'session'}, 'output_handler', $node);
    }
    
  2. or download this
    sub input_hook {
        my ($kernel, $heap, $node) = @_[KERNEL, HEAP, ARG0];
    ...
            }
        }
    }