1use strict;
2use warnings;
3
4use Data::Dumper;
5
6# The simplest App that does nothing...
7package TestApp1;
8use CGI::Builder qw/ CGI::Builder::TT2 /;
9
10# Manually adding vars ...
11package TestApp2;
12use CGI::Builder qw/ CGI::Builder::TT2 /;
13
14sub PH_testapp2
15{
16    my $s = shift;
17    $s->tt_vars( world => 'Republic of Perl' );
18}
19
20# Lookups
21package TestApp3::Lookups;
22use vars qw/ $world /;
23
24$world = 'Republic of Perl';
25
26package TestApp3;
27use CGI::Builder qw/ CGI::Builder::TT2 /;
28
29package TestApp4::Lookups;
30use vars qw/ @worlds /;
31
32@worlds = qw/ A B C Earth /;
33
34package TestApp4;
35use CGI::Builder qw/ CGI::Builder::TT2 /;
36
37
38package TestApp5::Lookups;
39
40sub foo
41{
42    return "A short string that's easy to test";
43}
44
45package TestApp5;
46use CGI::Builder qw/ CGI::Builder::TT2 /;
47
48package TestApp6;
49use CGI::Builder qw/ CGI::Builder::TT2 /;
50
51package TestApp7;
52use CGI::Builder qw/ CGI::Builder::TT2 /;
53
54package TestApp8;
55use CGI::Builder qw/ CGI::Builder::TT2 /;
56
571;
58