OO-Problem... - #64576 (Allgemeines zu Perl)

master

2006-04-07 18:43

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

Hi zusammen folgendes Problem:

Aufruf:

Code: (dl )

1
2

my $container = X->new($app);
$container->GFXButton->new(); #<<<----Problem

x.pm:

Code: (dl )

package X;

use X::GFXButton;
my $GFXButton = X::GFXButton;

GFXButton.pm:

Code: (dl )

 sub new {} #irgendwas

Wenn ich in X.pm folgende Weiterleitungs-Sub einbaue gehts:

Code: (dl )

1
2

sub GFXButton
{return $GFXButton->new(@_);}

Direktzugriff
X::GFXButton->new()
geht auch..

Ich möchte aber auf die new-methode zugreiffen in der art wie
oben bei "#problem" damit ich mir die sub sparen kann.

und die Angabe X::GFXButton->new
finde ich nicht gerade sehr hübsch.

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;