Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

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

by snoopy (Curate)
on Jan 15, 2008 at 22:33 UTC ( [id://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.

Replies are listed 'Best First'.
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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://662576]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (6)
As of 2024-03-29 10:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found