package Sitescriptor::Core::Request::Httpheader;
my $me;

sub new
    {
    my $pkg = shift;
    my $Self = {};
    bless( $Self, (ref $pkg || $pkg) );
    $me = $Self;
    return $Self;
    }
sub get_obj
    {
    $me = Sitescriptor::Core::Request::Httpheader->new(@_) unless($me);
    return $me;
    }