my ($self,$channel,$types) = @_;
$types = Set::Object->new(@{$types});
+ $types->insert('universal');
$self->channels->{lc $channel} = $types;
}
return 0 unless defined $command && defined $channel;
return 0 unless exists $self->commands->{$command};
+ $command = $self->commands->{$command};
+ return 1 if $command->type eq 'universal';
return 0 unless exists $self->channels->{$channel};
- $command = $self->commands->{$command};
return $self->channels->{$channel}->has($command->type);
}