Objektübergabe

[bleau]

Hallo,

habe folgende Frage:

ich möchte in einer pl datei ein obj. einer Klasse erzeugen und dieser Klasse durch den konstruktor ein objekt übergeben (in diesem Fall $cgi)

in der index.pl

use CGI;
  use my_class;
  my $cgi = new CGI;
  my $my_class = my_class->new($cgi);

funzt bis dahin auch

in der der Klasse (my_class.pm) lege ich das cgi-obj auf $self, damit ich innerhalb der Klasse problemlos daraf zugreifen kann.

in my_class.pm

sub new()
  {
      my $class = shift;
      my $self = {};
      $self->{cgi} = shift;
      bless($self, $class);
      return $self;
  }

möchte ich aber jetzt innerhalb einer Methode (innerhalb der Klasse my_class)
auf die methoden des cgi-Objektes zugreifen weis ich mir keinen rat!?

sub my_sub()
{
    my $self = shift;
    my %request = $self->{cgi}{Vars} ???? geht so nicht

}

würde gerne das Hash request mit den werten aus der $cgi->Vars Methode füllen
weis einer darüber bescheid?

gruss bleau