OO-Problem... (Allgemeines zu Perl)

[thread]7868[/thread]

OO-Problem...

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;

betterworld

2006-04-07 18:46

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Du kannst auf my-Variablen nicht von außerhalb zugreifen. Du koenntest aber einen Accessor schreiben, so etwa:

Code: (dl )

sub GFXButton { $GFXButton }

(Das muss natuerlich nach X.pm)
Bist Du sicher, dass Du in X.pm nicht um den Paketnamen, den Du der Variable zuweist, Anfuehrungszeichen machen moechtest?\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

master

2006-04-07 18:49

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

Dann lass ich lieber meine bestehende Sub :-)

Code: (dl )

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

ich muss ja den conti mitgeben.. besonders beim new.\n\n

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

View all threads created 2006-04-07 18:43.