What you want is what the heavy-OO people call a "singleton". You could write one yourself (WARNING! Untested code!):

package CGI::Single;
our @ISA;
@ISA = ('CGI');

my $instance;
sub instance {
  defined $instance or $instance = new CGI;
  $instance;
}
1;
[download]

Or, CPAN has Class::Singleton, which should let you just say (again, untested!), mixin-style,

package CGI::Single;
our @ISA;
@ISA = qw(CGI Class::Singleton);
1;
[download]

Here are a few pointers.

• When you use or require a module it gets placed in %INC. If you use or require it elswhere then perl just ignores you as it is already loaded
• With CGI.pm or CGI::Simple when you create a new CGI object all the data on STDIN is read in (this gets there when you POST) so you can ONLY read this data once as once the data is read in it's gone. Thus you MUST only create one object if you are using POST. With GET the data is stripped off $ENV('QUERY_STRING') so you could have more than one (accurate) object.
• To pass information between modules you have objects, accessor methods and globals to play with

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

package X;
use CGI;  
$q = CGI->new;
package Y;
use CGI;  
$r = CGI->new;

print $X::q->param('a'), " = ", $r->param('a');
[download]

friday:~ $ perl cgi
(offline mode: enter name=value pairs on standard input)
a=123
=
123 = 123
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Funny, I can't find the scripts now where I was having this problem, but here's the rough issue:

package X;
use CGI;  
$q = CGI->new;
$q->param('test','test value');
print "In Package X: ", $q->param('test'), "\n";

package Y;
use CGI;  
$r = CGI->new;
print "In Package Y: ", $r->param('test'), "\n";
[download]

Wheras, I want $r to contain the correct value of test. Now do you see what I mean? So I just want one CGI object created over the several namespaces.

cLive ;-)

--
seek(JOB,$$LA,0);

I cannot duplicate your problem:

Different problem. You are effectively using GET data. Try the same trick with POST and $r->param('a') wil be undef as you have stripped all the data off STDIN. See Re: using modules already 'used'

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

$q ||= new CGI;
[download]

I would create a module creating the cgi object and then <it>use</it> it in all modules requiring the cgi object. For instance something along the lines of:

package CGI::Instance;

use strict;
use CGI;
use Exporter   ();
use vars       qw(@ISA @EXPORT $cgi);
@ISA         = qw(Exporter);
@EXPORT      = qw( $cgi );

$cgi = new CGI;

1;
[download]

And then in A.pm and B.pm put a use CGI::Instance. This way, $cgi is only created once and is available both in A and in B.

Best regards

Antonio Bellezza