File Coverage

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

Criterion	Covered	Total	%
statement	6	11	54.5
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	17	58.8

# 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.03';

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

#
# 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;
	my $return_exec = $self->SUPER::exec(@_);
	$self->reset_comp_root;
	return $return_exec;
	}

#
# Simply pass the buck
#
sub fetch_comp
	{
	my $return_exec = MasonX::Request::ExtendedCompRoot::fetch_comp(@_);
	}

1;


__END__