view release on metacpan or  search on metacpan

lib/App/Pocoirc.pm  view on Meta::CPAN

322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
    }
    else {
        return 'undef';
    }
}
 
sub _event_debug {
    my ($self, $irc, $args, $event) = @_;
 
    if (!defined $event) {
        $event = (caller(1))[3];
        $event =~ s/.*:://;
    }
 
    my @output;
    for my $i (0..$#{ $args }) {
        push @output, "ARG$i: " . _dump($args->[$i]);
    }
    $self->_status($irc, 'debug', "$event: ".join(', ', @output));
    return;
}

lib/App/Pocoirc/Status.pm  view on Meta::CPAN

79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
    }
    else {
        return 'undef';
    }
}
 
sub _event_debug {
    my ($self, $irc, $args, $event) = @_;
 
    if (!defined $event) {
        $event = (caller(1))[3];
        $event =~ s/.*:://;
    }
 
    pop @$args;
    my @output;
    for my $i (0..$#{ $args }) {
       push @output, "ARG$i: " . _dump(${ $args->[$i] });
    }
 
    $irc->send_event_next('irc_plugin_status', $self, 'debug', "$event: ".join(', ', @output));