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

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 has a way to make this interface for your persistent objects: `$row_obj->set_field("foo"); $row_obj->get_field(); # instead of $row_obj->field("foo"); $row->obj_field();` [download] That's what you meant, right? 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] And copy over the implementation of the code that uses mutator_name to create write only accessors and readonly accessors. -nuffin zz zZ Z Z #!perl	[reply] [d/l] [select]

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