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;