summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
325dcc4)
New udata() method returns it.
-# $Id: Task.pm,v 1.1 2006-10-06 11:33:07 mike Exp $
+# $Id: Task.pm,v 1.2 2006-10-12 14:36:34 mike Exp $
package ZOOM::IRSpy::Task;
package ZOOM::IRSpy::Task;
sub new {
my $class = shift();
sub new {
my $class = shift();
+ my($conn, $udata, %cb) = @_;
return bless {
irspy => $conn->{irspy},
conn => $conn,
cb => \%cb,
return bless {
irspy => $conn->{irspy},
conn => $conn,
cb => \%cb,
timeRegistered => time(),
}, $class;
}
timeRegistered => time(),
}, $class;
}
+sub udata {
+ my $this = shift();
+ return $this->{udata};
+}
+
sub run {
my $this = shift();
die "can't run base-class task $this";
sub run {
my $this = shift();
die "can't run base-class task $this";