File Coverage

blib/lib/CGI/Lazy/ModPerl.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package CGI::Lazy::ModPerl;

use strict;
use warnings;

use CGI::Lazy::Globals;
use Apache2::Const;
use Apache2::RequestUtil;

no warnings qw(uninitialized redefine);

our $VERSION = '0.04';

#------------------------------------------------------------------------------
sub _sessionCleanup {
	my $r = shift;
	my $q = shift;

	if ($q->plugin->session) {
		unless ($q->plugin->session->{saveOnDestroy} == 0) {
			$q->session->save if $q->session;
		}
	}

	return Apache2::Const::OK;

}

#------------------------------------------------------------------------------
sub new {
	my $class = shift;
	my $q = shift;

	my $vars = $q->plugin->mod_perl;

	if ($q->plugin->session) {
		#register cleanup handler, so we make damn sure that the session variable is saved
		my $handler = $q->plugin->mod_perl->{PerlHandler};
		my $r = Apache2::RequestUtil->request();
		$r->push_handlers(PerlCleanupHandler	=> \&_sessionCleanup($r, $q));
	}

	return bless {_q => $q, _vars => $vars}, $class;
}

#------------------------------------------------------------------------------
sub vars {
	my $self = shift;

	return $self->{_vars};
}

1

__END__