1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!/usr/bin/env entity
<object>
<timer interval="1000" action="do_stuff"/>
<delme name="delme" foo="bar"/>
<delme2 name="foo"/>
<?perl
my $delnode = enode ("delme");
print ("delnode node is $delnode\n");
my $count = 0;
sub delme2
{
my $node = shift;
print ($node);
$node->destroy ();
}
sub do_stuff
{
my $node = enode ("delme");
print ("delnode is $delnode\n");
print ("node is $node\n") if ($node);
$node->destroy () if ($node);
print ("delnode foo is ". $delnode->attrib ("foo") . "\n");
enode ("object")->new_child ("foo");
$count++;
if ($count > 5) {
my $obj = enode ("object");
print ("calling delnod->call\n");
$delnode->call ("entity:exit");
sleep (1);
print ("calling object->call\n");
$obj->call ("entity:exit");
}
my $del2 = enode ("delme2");
if ($del2) {
delme2 ($del2);
print ("delme2 is $del2\n");
}
}
</perl>
?>
</object>
|
