| … | |
… | |
| 46 | on_trigger => sub { |
46 | on_trigger => sub { |
| 47 | my ($map, $connection, $state) = @_; |
47 | my ($map, $connection, $state) = @_; |
| 48 | |
48 | |
| 49 | print "CONNECITON TRIGGERED: $connection : $state\n"; |
49 | print "CONNECITON TRIGGERED: $connection : $state\n"; |
| 50 | |
50 | |
| 51 | for ($map->get_connection ($connection)) { |
51 | for ($map->find_link ($connection)) { |
| 52 | print "connected obj: " . $_->name . "\n"; |
52 | print "connected obj: " . $_->name . "\n"; |
| 53 | } |
53 | } |
| 54 | }; |
54 | }; |
| 55 | |
55 | |
| 56 | This small attachment dumps all connection activations and the connected |
56 | This small attachment dumps all connection activations and the connected |
