has commands => (
- is => 'rw',
+ is => 'ro',
isa => 'HashRef[Object]',
default => sub{ {} },
);
has channels => (
- is => 'rw',
+ is => 'ro',
isa => 'HashRef[ArrayRef[Str]]',
default => sub{ {} },
);
+has targets => (
+ is => 'ro',
+ isa => 'HashRef[Str]',
+ default => sub{ {} },
+);
+
sub load {
my $self = shift;
return 0;
}
+sub set_target {
+ my ($self,$label,$target) = @_;
+ $self->targets->{$label} = $target;
+}
+
sub run_command {
my ($self,$c,$command,$args) = @_;