X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalystX%2FGlobalContext.pm;h=9a061ea60156c019c736dd250cdf5a75a90fc35d;hb=2e6f9c85d869a3fd48134c5990ed654ad272fd12;hp=579e08e17ab09bc6955abed0f3326a0b99b1ff7f;hpb=32b32c6209c69a810c2d0b66a8cfc6efcae66d32;p=catagits%2FCatalyst-Controller-WrapCGI.git diff --git a/lib/CatalystX/GlobalContext.pm b/lib/CatalystX/GlobalContext.pm index 579e08e..9a061ea 100644 --- a/lib/CatalystX/GlobalContext.pm +++ b/lib/CatalystX/GlobalContext.pm @@ -6,17 +6,20 @@ use parent 'Exporter'; use Scalar::Util 'weaken'; +use vars '$c'; +our @EXPORT_OK = '$c'; + =head1 NAME CatalystX::GlobalContext - Export Catalyst Context =head1 VERSION -Version 0.01 +Version 0.020 =cut -our $VERSION = '0.01'; +our $VERSION = '0.020'; =head1 SYNOPSIS @@ -40,16 +43,17 @@ our $VERSION = '0.01'; =head1 DESCRIPTION -This module, in combination with L is for helping -you run legacy mod_perl code in L. +This module, in combination with L or +L is for helping you run legacy mod_perl code in +L. You save a copy of $c somewhere at the beginning of the request cycle, and it is then accessible through an export where you need it. -You can then rip out Apache:: type things, and replace them with things based on -$c. +You can then rip out C type things, and replace them with things based on +C<$c>. -What we really need is a set of Apache:: compatibility classes, but that doesn't +What we really need is a set of C compatibility classes, but that doesn't exist yet. DO NOT USE THIS MODULE IN NEW CODE @@ -68,6 +72,11 @@ sub set_context { weaken $c; } +=head1 SEE ALSO + +L, L, +L + =head1 AUTHOR Rafael Kitover, C<< >>