http://qs1969.pair.com?node_id=531384

jesuashok has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks !!!

Could anyone explain the below code.
I am aware of new => new. what about the following ?

scalar => [+{ -type => 'File::stat' }, qw/ name /],

use Class::MethodMaker [ scalar => [+{ -type => 'File::stat' }, qw/ name /], new => 'new', ];

"Keep pouring your ideas"

Replies are listed 'Best First'.
Re: Could anyone explain the following Class::MethodMaker Code ?
by wazoox (Prior) on Feb 20, 2006 at 11:53 UTC
    Blech. That is really the sort of code that makes perl's bad reputation...
    So what do we have ? here's my explanation : the enclosing "[]" force an anonymous array context. Inside we have 2 array elements :
    scalar => [+{ -type => 'File::stat' }, qw/ name /], new => 'new',
    The last one ( new => 'new') is clear enough. The first one is trickier : scalar is the hash key; let's analyse the content :
    [+{ -type => 'File::stat' }, qw/ name /]
    the enclosing square braces once again force an anonymous array. Inside there are two elements :
    +{ -type => 'File::stat' }, qw/ name /
    , the + force the following curly brace {} to be interpreted as an hash element and not a code block. so that's simply an anonymous hash entry.
    "qw/name/" is just useless here because there's only one word...
    Finally that's not very complex, just extremely obfuscated...
    Here's what Data::Dumper can tell us about this structure, finally :
    $VAR1 = { 'scalar' => [ { '-type' => 'File::stat' }, 'name' ], 'new' => 'new' };
    It's way better, isn't it ?
    update : I forgot to mention that this structure looks like a pseudo-hash.
Re: Could anyone explain the following Class::MethodMaker Code ?
by mattr (Curate) on Feb 22, 2006 at 07:12 UTC
    While on the subject, I had exactly the same question since that line appears in the docs.

    Could use more tutorials / docs on Class::MethodMaker and especially persistence of its objects. (Am posting a separate thread about that now).