#!/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>