#!/usr/bin/perl
package My::Special::View;
use strict;
# File generated by Servlet 0.01 at Sat Jun 17 13:55:02 2006
# from source: example.html
# WARNING: changes made here will be overwritten upon re-creation.
use File::Temp qw( tempfile ); # required once in My::Special::View
return sub {
my ($title, $header1, $ref) = @_;;
my ($___example_fh,$___example_fn,$___example_oldfh);
my $wantarray = wantarray();
if(wantarray) {
($___example_fh,$___example_fn) = tempfile() or die "can't tempfile: $!\n";
$___example_oldfh = select ($___example_fh); $| = 1;
}
print <<"E0000";
$title
$header1
E0000
unless($ref) {
print <<"E0001";
No data provided.
E0001
} else {
print <<"E0002";
E0002
foreach my $ary(@$ref) {
print <<"E0003";
E0003
map {
print <<"E0004";
$_
E0004
} @$ary;
}
print <<"E0005";
E0005
}
print <<"E0006";
E0006
if($wantarray) {
local *I;
open(I,"<",$___example_fn) or warn "My::Special::View::example: Can't open $___example_fn for reading: $!\n";
my @text = ;
close(I); unlink($___example_fn);
select($___example_oldfh);
return @text;
}
};