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