warn "couldn't run $file" unless $return;
}
}
+ $DISP = undef;
}
sub command ($$$) {
my ($self,$command,$channel) = @_;
$channel = lc $channel;
+ return 0 unless defined $command && defined $channel;
return 0 unless exists $self->commands->{$command};
return 0 unless exists $self->channels->{$channel};