default => sub{ {} },
);
-has targets => (
- is => 'ro',
- isa => 'HashRef[Str]',
- default => sub{ {} },
-);
my $DISP;
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);
}
-sub set_target {
- my ($self,$label,$target) = @_;
- $self->targets->{$label} = $target;
-}
-
sub run_command {
my ($self,$c,$command,$args) = @_;