File: require.e

package info (click to toggle)
entity 1.0.1-8
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 5,604 kB
  • ctags: 5,394
  • sloc: ansic: 64,242; sh: 7,377; makefile: 776; perl: 319
file content (17 lines) | stat: -rw-r--r-- 520 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/env entity
<object name="foo">
  <window name="holder" width="500" height="100" ondelete="entity:exit">
    <?perl
    sub was_error
    {
       my ($node) = @_;
       $file = $node->attrib("file");
       print ("Node $node had an\n");
       print ("an error loading file $file\n");
       print ("Of course, this is the correct behaviour, so all is well.\n");
    }
    ?>   
    <require file="require2.e" onerror="was_error"/>
    <include file="require2.e" onerror="was_error"/>
  </window>
</object>