Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100755 32 lines (21 sloc) 0.477 kB
8959717 more documentation
Tyler Riddle authored
1 package TestSession;
2
3 use strict;
4 use warnings;
5
6 use base qw(Device::Firmdata::Session);
7
8 sub init {
9 my ($self) = @_;
10
11 $self->SUPER::init();
12
13 $self->subscribe(1, 1, 5, 0);
14 $self->subscribe(2, 2, 100, 1);
15 }
16
17 sub data {
18 my ($self, $channel, $when, $content) = @_;
19
20 $self->SUPER::data($channel, $when, $content);
21
22 print "$channel\t$when\t$content\n";
23 }
24
25 sub update {
26 my ($self) = @_;
27 my $buf = '';
28 return $buf;
29
30 }
31
32 __PACKAGE__;
Something went wrong with that request. Please try again.