Select Code to Download

Select or download this

All Perl code within source HTML files has to be embedded into
standard HTML comment tags of one of the following forms:
...

<!-- perl dummy start --> <!-- perl dummy end -->
    These tags and all characters in between are weeded out.

Select or download this

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "xhtml1-transitional.dtd">
...
    <!-- perl dummy end -->
  </body>
</html>

Select or download this

#!/usr/bin/perl
package My::Special::View;
...
    "Servlet Heading for a table",
    [[1,a],[2,b]]
);

Select or download this

#!/usr/bin/perl
package My::Special::View;
...
print @lines;
# direkt render & print
$s->display("page","heading",[['foo',1,2],[bar,3,4],[quux,5,6]]);

Select or download this

#!/usr/bin/perl
package My::Special::View;
use Servlet qw(AUTOLOAD);
example("sample servlet page","Servlet Heading for a table",
    [[1,a],[2,b]]);

Select or download this

#!/usr/bin/perl
package My::Special::View;
...
        return @text;
    } 
};

Select or download this

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "xhtml1
+-transitional.dtd">
<html>
...
    
  </body>
</html>

Select or download this
```
package Servlet;

...
1;

__END__
```