Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Re^3: Class::Accessor and Damian's PBP

by Roy Johnson (Monsignor)
on Feb 23, 2006 at 19:54 UTC ( #532380=note: print w/replies, xml ) Need Help??

in reply to Re^2: Class::Accessor and Damian's PBP
in thread Class::Accessor and Damian's PBP

After playing around in several directions, I realized that it's trivially easy to generate default accessors, which may be why there are so many modules for it (although it makes me wonder why there are any).
for my $property (qw(several members defined public)) { no strict 'refs'; *{"get_$property"} = sub { (shift)->{$property} }; *{"set_$property"} = sub { (shift)->{$property} = $_[0] }; }

Caution: Contents may have been coded under pressure.

Replies are listed 'Best First'.
Re^4: Class::Accessor and Damian's PBP
by cbrandtbuffalo (Deacon) on Feb 23, 2006 at 21:24 UTC
    You got it. I took at look and that's almost exactly what Class::Accessor does.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2023-03-20 19:44 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (59 votes). Check out past polls.