CGI::Ex 2.24

[chaz/p5-CGI-Ex] / samples / app / app1 / js.pl

diff --git a/samples/app/app1/js.pl b/samples/app/app1/js.pl
new file mode 100755 (executable)
index 0000000..795068b
--- /dev/null
+++ b/samples/app/app1/js.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+=head1 NAME
+
+js.pl - simple @INC js printer
+
+=head1 DESCRIPTION
+
+This is necessary because app1.pl hard codes path.
+
+=cut
+
+use strict;
+use warnings;
+
+use CGI::Ex;
+CGI::Ex->print_js($ENV{'PATH_INFO'});