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