view release on metacpan or  search on metacpan

lib/test-page.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/local/bin/perl
 
use lib qw{/export/home/cradcliff/perlmodules};
use Template::PSP;
 
print ".\n";
 
my $filename = $ARGV[0] || die "No PSP file specified";
 
print ".\n";
 
my $page_code;
eval { $page_code = Template::PSP::pspload($filename, undef, 1) };