24 lines
313 B
Perl
24 lines
313 B
Perl
package CelBot::Plugin::LogBase;
|
|
|
|
use strict;
|
|
# mixin role
|
|
|
|
sub logs_tag
|
|
{
|
|
my $self = shift;
|
|
my ( $tag ) = @_;
|
|
|
|
return 1; # TODO
|
|
}
|
|
|
|
sub do_log
|
|
{
|
|
my $self = shift;
|
|
my ( $tag, $subject, $message ) = @_;
|
|
|
|
return unless $self->logs_tag( $tag );
|
|
|
|
$self->do_log_really( $subject, $message );
|
|
}
|
|
|
|
1;
|