diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-10 10:48:52 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-10 10:48:52 +0000 |
commit | 5e1a47e60498c749e0e94778ee2d6b03b4773173 (patch) | |
tree | 107cf850607a88feea84dd5791ebe990167a125c /lib/Reaction/InterfaceModel/Reflector/DBIC.pm | |
parent | 9ba84ace9aa95b662189500ce8c2f3c8d7b154e1 (diff) | |
download | reaction-5e1a47e60498c749e0e94778ee2d6b03b4773173.tar.gz reaction-5e1a47e60498c749e0e94778ee2d6b03b4773173.zip |
_ prefixed writer doth not mean rw
Diffstat (limited to 'lib/Reaction/InterfaceModel/Reflector/DBIC.pm')
-rw-r--r-- | lib/Reaction/InterfaceModel/Reflector/DBIC.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm index ff6129a..f4d98b7 100644 --- a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm +++ b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm @@ -773,7 +773,8 @@ class DBIC, which { my $s_attr = $s_meta->find_attribute_by_name($s_attr_name); confess("Unable to find attribute for '${s_attr_name}' via '${source}'") unless defined $s_attr; - next unless $s_attr->get_write_method; #only rw attributes! + next unless $s_attr->get_write_method + && $s_attr->get_write_method !~ /^_/; #only rw attributes! my $attr_params = $self->parameters_for_source_object_action_attribute ( |