File Coverage

blib/lib/MasonX/Request/ExtendedCompRoot/WithApacheSession.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch	0	6	0.0
condition			n/a
subroutine	2	7	28.5
pod	4	4	100.0
total	12	37	32.4

# This software is copyright (c) 2004 Alex Robinson.
# It is free software and can be used under the same terms as perl,
# i.e. either the GNU Public Licence or the Artistic License.

package MasonX::Request::ExtendedCompRoot::WithApacheSession;

use strict;

our $VERSION = '0.04';

use base qw(MasonX::Request::WithApacheSession MasonX::Request::ExtendedCompRoot);


sub new
	{
	my $class = shift;
	$class->alter_superclass(
		$MasonX::Request::WithApacheSession::VERSION ?
		'MasonX::Request::WithApacheSession' :
		$HTML::Mason::ApacheHandler::VERSION ?
		'HTML::Mason::Request::ApacheHandler' :
		$HTML::Mason::CGIHandler::VERSION ?
		'HTML::Mason::Request::CGI' :
		'HTML::Mason::Request' );
	my $self = $class->SUPER::new(@_);

	return $self->_init_extended(@_);
	}
#
# Call WithApacheSession's exec, then put comp_root back
# to what it was when the current request or subrequest was made
#
sub exec
	{
	my $self = shift;
	$self->comp_root(@{$self->_base_comp_root});
	my $return_exec = $self->SUPER::exec(@_);
	#$self->reset_comp_root;
	$self->comp_root(@{$self->_base_comp_root});
	return $return_exec;
	}

#
# Simply pass the buck
#
sub _fetch_comp
	{
	return MasonX::Request::ExtendedCompRoot::_fetch_comp(@_);
	}
# and again
sub comp
	{
	return MasonX::Request::ExtendedCompRoot::comp(@_);
	}
# and again
sub content
	{
	return MasonX::Request::ExtendedCompRoot::content(@_);
	}

1;


__END__