################################################################################
# WeBWorK Online Homework Delivery System
# Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/
# $CVSHeader: webwork2/lib/WeBWorK/Upload.pm,v 1.7 2006/01/25 23:13:51 sh002i Exp $
# 
# This program is free software; you can redistribute it and/or modify it under
# the terms of either: (a) the GNU General Public License as published by the
# Free Software Foundation; either version 2, or (at your option) any later
# version, or (b) the "Artistic License" which comes with this package.
# 
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE.  See either the GNU General Public License or the
# Artistic License for more details.
################################################################################

package WeBWorK::Cookie;

=head1 NAME

WeBWorK::Cookie - inherit from either Apache::Cookie or Apache2::Cookie
depending on mod_perl version.

=head1 SYNOPSIS

Given C<$r>, a WeBWorK::Request object

 my $cookie = new WeBWorK::Cookie

=cut

use strict;
use warnings;

use mod_perl;
use constant MP2 => ( exists $ENV{MOD_PERL_API_VERSION} and $ENV{MOD_PERL_API_VERSION} >= 2 );

# This class inherits from Apache::Cookie under mod_perl and Apache2::Cookie under mod_perl2
BEGIN {
	if (MP2) {
		require Apache2::Cookie;
		Apache2::Cookie->import;
		push @WeBWorK::Cookie::ISA, "Apache2::Cookie";
	} else {
		require Apache::Cookie;
		Apache::Cookie->import;
		push @WeBWorK::Cookie::ISA, "Apache::Cookie";
	}
}

1;