Re: Question about __PACKAGE_

These are exactly the same after the compile stage

__PACKAGE__->hello('text1');
Foo->hello('text1');
[download]

These are also the same

hello(__PACKAGE__, 'text1');
hello('Foo', 'text1');
[download]

The difference between f('x') and 'x'->f() is that if there is no sub f {} in Foo @INC will be used to look for one.

Look at UNIVERSAL and perltoot.

-- gam3
A picture is worth a thousand words, but takes 200K.

Comment on Re: Question about __PACKAGE__ Select or Download Code

Replies are listed 'Best First'.
Re^2: Question about __PACKAGE__ by sman (Beadle) on Jan 22, 2010 at 03:06 UTC
Do you mean these four lines belonged to Foo are calling class method instead of object method? Therefore no object is created by them, right? `__PACKAGE__->hello('test1'); Foo->hello('test2'); hello(__PACKAGE__, 'text3'); hello('Foo', 'text4');` [download] However, if I call this line: `Foo->new()->hello('test5');` [download] one object will be created. Am I right so far? Thanks.	[reply] [d/l] [select]
Re^3: Question about __PACKAGE__ by ikegami (Patriarch) on Jan 22, 2010 at 07:15 UTC
Yes. Mind you, in practice, `hello` is probably only suppose to called one of the two ways.	[reply] [d/l]
Re^3: Question about __PACKAGE__ by gam3 (Curate) on Jan 22, 2010 at 12:24 UTC
It is important to note that Perl OO does not have any "built in" concept of data. There is no default Constructor and the Destructor consists of a call to DESTROY. It might be more descriptive to rewrite `Foo->new()->hello('test5');` as `bless(\sub {}, 'Foo')->hello('test5');` [download] This just blesses a CODE_REF for fun. It could be a HASHREF or some other REF. The only real difference between `'Foo'->hello()` [download] and `bless(sub {}, 'Foo')->hello()` [download] Besides the fact that the blessed version can contain data, is that just before the blessed object is Garbage Collected, DESTROY is called with it as the argument ($x->DESTROY). UNIVERSAL contains a DESTROY method, so it always exists. -- gam3 A picture is worth a thousand words, but takes 200K.	[reply] [d/l] [select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: Question about __PACKAGE__

Re: Question about PACKAGE