Select Code to Download

sub new { my $class = shift; my $s = {}; bless $s, $class;
  
 $s->{Laboratory}  = new MotionSensorB('Laboratory',  'senMotion_H2_S1
+');
...

 return $s;
}

sub event { my $c = shift;

 foreach my ??? (???) {
  print ??? . "\n";
  
}