Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^3: Generating accessors for complex structures inside the object

by snoopy (Deacon)
on Jan 15, 2008 at 22:33 UTC ( #662576=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Generating accessors for complex structures inside the object
in thread Generating accessors and mutators for complex structures inside the object

Hi KSURi,

Thanks for your questions. Before getting into the details; I did make some assumptions that need to be tested:

The class level structure (defined in Foo) is a effectively a struct definition:

So, if in Foo, you define

package Foo; use base qw/Class::StructAccessors/; __PACKAGE__->mk_struct_accessors({A => {B => C}});
then the actual method created is C.

my $obj = {}; bless $obj, "Foo"; $obj->{A}{B}{C} = "this is a C"; print $obj->C; # outputs "this is a C"
If you want another object with another fixed structure, then you need another class
package Bar; use base qw/Class::StructAccessors/; __PACKAGE__->mk_struct_accessors({X => {Y => Z}});
This will generate accessor method for Z.

In an nutshell, the above code works when you have finite number of structures that are know at run time.

I'm getting the feeling that you want a more dynamic solution that'll work at the instance on any structure; something like:

my $obj = bless {a => {b => {c => 'data for c'}}}, "Class::StructAc +cessorMk2";
Always happy to assist (and code) :-) Please advise.


Comment on Re^3: Generating accessors for complex structures inside the object
Select or Download Code
Re^4: Generating accessors for complex structures inside the object
by KSURi (Monk) on Jan 23, 2008 at 19:00 UTC
    > I'm getting the feeling that you want a more dynamic solution that'll work at the instance on any structure; Yep, that will be very usefull not only for me. Though I've solved my own problem (through object redesigning) I'll be glad to read ideas and etc. Thanks for your assist)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://662576]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (10)
As of 2014-09-01 13:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (11 votes), past polls