Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 32 lines (21 sloc) 477 Bytes
package TestSession;
use strict;
use warnings;
use base qw(Device::Firmdata::Session);
sub init {
my ($self) = @_;
$self->SUPER::init();
$self->subscribe(1, 1, 5, 0);
$self->subscribe(2, 2, 100, 1);
}
sub data {
my ($self, $channel, $when, $content) = @_;
$self->SUPER::data($channel, $when, $content);
print "$channel\t$when\t$content\n";
}
sub update {
my ($self) = @_;
my $buf = '';
return $buf;
}
__PACKAGE__;
Something went wrong with that request. Please try again.