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


Do you know where your variables are?
	PerlMonks

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

by cbrandtbuffalo (Deacon)

on Feb 23, 2006 at 21:27 UTC ( [id://532401]=note: print w/replies, xml )

Need Help??

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

Thanks for the pointer.

It appears CDBI is using Class::Accessor in the currently support method of overriding get and set. After looking at Class::Accessor, I think what I want is a way to provide my own alias that is different from the actual field name, which isn't supported right now.

Comment on Re^2: Class::Accessor and Damian's PBP

Replies are listed 'Best First'.

Re^3: Class::Accessor and Damian's PBP
by nothingmuch (Priest) on Feb 24, 2006 at 00:11 UTC

Class::DBI

    $row_obj->set_field("foo");
    $row_obj->get_field();

    # instead of 
    $row_obj->field("foo");
    $row->obj_field();
[download]

Look for mutator_name and accessor_name - this is under http://search.cpan.org/~tmtm/Class-DBI-v3.0.14/lib/Class/DBI.pm#Changing_Your_Column_Accessor_Method_Names.

Specifically, look at

  sub mutator_name_for {
    my ($class, $column) = @_;
    return "set_" . $column->accessor;
  }
[download]

-nuffin
zz zZ Z Z #!perl

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://532401]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others pondering the Monastery: (4)

As of 2024-04-19 04:21 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found