view release on metacpan or  search on metacpan

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

400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
    }
    else {
        return 'undef';
    }
}
 
sub _event_debug {
    my ($self, $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('debug', "$event: ".join(', ', @output));
    return;
}

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

77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
    }
    else {
        return 'undef';
    }
}
 
sub _event_debug {
    my ($self, $ircd, $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] });
    }
 
    $ircd->send_event_next(