[svn:mod_parrot] r645 - mod_parrot/trunk/languages/perl6/lib/Apache

[email protected] Mon, 15 Jun 2009 17:03:09 -0700 (PDT)
Newsgroups perl.cvs.mod_parrot
Message-ID <[email protected]>
Author: jhorwitz
Date: Mon Jun 15 17:03:09 2009
New Revision: 645

Added:
   mod_parrot/trunk/languages/perl6/lib/Apache/Module.pm

Log:
forgot to add the Perl 6 Apache::Module


Added: mod_parrot/trunk/languages/perl6/lib/Apache/Module.pm
==============================================================================
--- (empty file)
+++ mod_parrot/trunk/languages/perl6/lib/Apache/Module.pm	Mon Jun 15 17:03:09 2009
@@ -0,0 +1,14 @@
+# $Id$
+
+module Apache::Module;
+
+q:PIR<
+    # don't proceed unless we're actually running
+    $P0 = get_root_global '!MODPARROT_RUNTIME'
+    if null $P0 goto done
+
+    $P0 = get_root_namespace ['parrot';'ModParrot';'Apache';'Module']
+    $P1 = new 'Exporter'
+    $P1.'import'($P0 :named('source'), 'add get_config' :named('globals'))
+  done:
+>;